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FOREWORD 


(U)  This  report  was  prepared  by  the  Vought  Systems  Division, 
LTV  Aerospace  Corporation,  P.  O.  Box  6267,  Dallas,  Texas  75222 
under  U.  S.  Army  Electronics  Command  Contract  DAAB09- 72-C- 0062. 

The  work  was  initiated  under  the  direction  of  Captain  R.  A.  Dowd,  USN 
and  completed  under  Captain  W.  A.  Greene,  USN,  Chief,  Long  Range 
Forecast  Division,  Directorate  of  Estimates,  Defense  Intelligence 
Agency  (DIA-DE-1). 

(U)  Persons  contributing  to  the  development  and  testing  of 
the  procedure  reported  herein  include: 

DIA-DE-1 

Capt.  W.  A.  Greene,  USN 
Capt.  R.  A.  Dowd,  USN  (Retired) 

Capt.  R.  F.  Weiss,  USAF 
Mr.  R.  E.  McQuiston 

ARPA 

Cmdr.  T.  W.  Hogan,  USN 

VSD 

Mr.  J.  S.  Smith,  Jr.  Chief  Project  Engineer, 

Special  Projects 

Dr.  L,  D.  Gregory  Project  Engineer,  SEATIDE 

Mr.  J.  R.  Matthews  Models  and  Analysis 

Mr.  F.  E.  Dye,  Jr.  Technologies  (CM-CGSM) 

Mr.  R.  K.  McDonough  Models  and  Analysis  (CM-CGSM) 

Mr.  R.  E.  Dyer  Models  and  Analysis  (NEM) 

Mr.  G.  G.  Johnson  Aerodynamics 

Dr.  J.  A.  Bottorff  Propulsion 

Mr.  A.  C.  Morris  Electronics  (Radar,  Guidance) 

Mr.  H.  R.  Crow  Operations  Research 

Mr.  G.  H.  Harris  Operations  Research 

Mr.  G.  S.  McCorkle  Propulsion 

Mr.  L.  D.  Cardwell  Propulsion 
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ABSTRACT 


(U)  The  SEATIDE  Analysis  Process  is  a semi-automated 
procedure  for  the  generation  of  time-phased,  high  value  cruise  missile 
weapon  systems  concepts,  together  with  the  supporting  technology  and 
intelligence  indicators  which  would  reflect  that  these  technological  goals 
are  being  achieved.  The  SEATIDE  process  can  also  be  used  to  evaluate 
the  effectiveness  of  fixed  force  levels,  existing  forces  in  SAL  environ- 
ments, or  Naval  defenses, 

(U)  The  Defense  Intelligence  Agency,  through  its  Directorate 
of  Estimates,  and  The  Advanced  Research  Projects  Agency  (ARPA)  have 
sponsored  the  development  of  this  computer  based  analysis  at  the  weapon 
system  and  Naval  force  structure  level.  A previous  process,  RIPTIDE, 
was  developed  for  DIA  for  use  in  analysis  of  strategic  missile  systems. 

(U)  Generic  to  the  SEATIDE  Analysis  Process  are  three 
major  computer  models;  The  Naval  Engagement  Model  (NEM),  Cruise 
Missile  Concept  Generation  and  Screening  Model  (CM-CGSM)  and  Relative 
Worth  Model  (RWM).  The  NEM  evaluates  force  effectiveness,  tactics,  and 
task  force  configurations;  the  CM-CGSM  enables  definition  and  selection 
of  candidate,  advanced  cruise  missile  system  concepts;  and  the  RWM  per- 
mits assessment  of  worth  in  accordance  with  a variety  of  objective  and 
subjective  criteria.  Each  of  these  models  has  been  checked  out  by  DIA. 

(U)  In  addition  to  exercising  the  computer  models,  there  are 
several  other  analytical  and  engineering  tasks  to  be  performed,  e.g.  , the 
identification  of  areas  of  current  interest  and  the  associated  criteria  and 
potential  concepts,  the  creation  of  a foreign  technology  data  bank  in  a 
format  needed  by  the  computer  models,  the  engineering  of  concepts  to 
the  required  detail,  and  the  use  of  a verification  analysis  loop. 
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APPENDIX  N 


NAVAL  ENGAGEMENT  MODEL  (NEM) 

FORTRAN  SOURCE  PROGRAM 

INTRODUCTION 

Appendix  N gives  the  source  program  listing  for  the  Naval 
Engagement  Model  (NEM).  The  NEM  was  written  in  Fortran  IV  EBCDIC 
for  the  IBM  360  computer.  Approximately  9500  source  cards  make  up 
the  81  subprograms  of  the  NEM. 

The  listing  in  Section  2.  0 reflects  the  status  of  the  NEM  as 
delivered  to  DIA  on  19  Jan  1974.  The  NEM  subprograms  are  grouped  by 
function  (related  routines  are  grouped  together)  and  listed  in  the  approxi- 
mate order  of  execution.  Section  3.  0 provides  an  index  to  the  listing 
by  function.  Section  4.  0 provides  an  alphabetical  index. 


1. 


2. 


LISTING 


c PnM  = ^ XX( NFM)  MAIM  PRrGRAH  NX  X 

C MOns.wA  IM,K II  LHF.STATF, radar, FFACT, SEAREF.  VER.13  11-25-74  NXX 

C ADD  .STP  IMG,  5IGn«;.  VFR.13  11-25-74  NXX 

C NXX 

G FFFINF  FILE  A( ICCC, 40,U, JD4)  NXX 

PFFIMF  FILF  IK  180,555,U,  jnil ) NXX 

CnMMf'M/nFVlCF/  N 1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12  Nx  X 

INTFGFR  ZIP,7r.nnE,Zl,72,73  ,Z4,Z5,Z6,Z7,Z8,Z9  Nxx 

COMMON /IMfHIT/Nl  ir'F,NPAGe,PCnnE(  201, MI  SC(7)  ,XMISC(7)  ,7IP,zrr'nFr  19)MXX 

1,  JRASH(?OI,  TRASH!  20  ),IR(8),IC(8)  ,OUM(  8)  ,I  nUM(8)  ,NFl  Ar,,NFLAr,2  NXX 

FOUIVALFNCE  ( ZCOOF ( 1 1 , Z 1 1 , ( ZCODE ( 2 ) , 22 1 , (ZCOOE ( 3 1 , Z3 I NXX 

1 ,(ZCrnEI4),Z4),(ZCnnE(5),Z5),(ZC0nE(6),Z61  NXX 

2 ,(Zr.nnE(7),Z7),(ZCa0E(8),Z8),(ZC00E(9),Z9)  NXX 

COMMOr'/KL  AS/  CLAS(20)  NXX 

rn^MOF'/  !^1^UU/IPP  (16)  ,JPAR(  16)  ,PAR(  16)  , label  mxx 

GOMmom/imoua/jp^  NkX 

C C.rMMnN/INnu9/jr)S,Nn9,NB9,  IN0X9!  10,6)  NXX 

COMMON/INdUl 1/  JPll,N011,NPll,INnxll(180,7)  NXX 

MAMEl I ST /N AM  1 /M I sc , XM ISC , I PR , JPAR ,PAP , NPAGE, LABEL  NX  X 

CFOPMATS  nxx 

1000  PQPM  AT  (IX,  19A^,  A3)  NXX 

2000  FORMAT!  IHl, 7 IX,  AHPAGE  , I4/6X,  19A4,  A3)  NXX 

1002  FORMAT!  A4,3  1 ?,  I 10,41  5,  10A4)  NXX 

2002  FORM  AT! /6X, A4, 312,1 10,41 5, 10A4)  NXX 

1003  FORMAT  (10X,7G10.3)  MXX 

2003  RORMAT  ! lOX , 7013.6)  NXX 

2005  FORMAT!  IHO, 20HFRRnR  IN  MAIN  AT  F 1 = ,F8 . 2 ,3 X , A4 , 3 I 2 , I 10, 41 5, 10 A4 ) NXX 

2006  format ! //////////44X , 4HNXX  //  NXX 


0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0 120 
01  30 
0140 
0150 
0160 
0170 
OIRO 
0 190 
0 200 
0210 
0220 
0230 
0240 
0250 
0 260 
0270 
0280 


44X,  4HXXXX// 

35X,'vnUGHT  SYSTEMS  DIVISION*,  // 
34X,?5HLTV  AEROSPACE  CORPORATION 
37X, lOHPALl AS,  TEXAS  75222  ) 


// 


NXX 
NX  V 
NXX 
^'XX 


mon 

0 300 
0310 
0 320 


c*** 

SAmplF  ZIPS 

FOR 

BASIC 

TABLE  HANDLING 

NXX 

0330 

C IP 

3 

START  NEW  BASIC  TABLE  F I LF  (RE  PL  AGE  OLD) 

NX  X 

0 340 

CIP 

7 

1 1 

READ  BASIC  TABLE  £ ADO  TO  DISK  11 

MXX 

0350 

CIP 

7 

1 2 

FIND  AND  PRINT  FOLLOWING  BASIC  TABLE 

NXX 

0360 

CABLE  1 

MO.  I Cl.. 

• « • 

ID2 

(ONE  (D  CARO) 

NX  X 

0370 

CIP 

7 

1 4 

-1  UPDATE  BASIC  TABLE. TEMP  IF  -1  IN  GPL. 30 

NX  X 

03R0 

CIP 

7 

1 5 

REPLACE  FOLLOWING  BASIC  TABLE  ON  DISK  11 

NXX 

03P0 

C IP 

7 

1 6 

PRINT  ALL  BASIC  TABLES  NOW  ON  DISKll 

NX  X 

0400 

CIP 

7 

3 

DELETE  ALL  TEMPORARY  TABLES  CN  DISKll 

NXX 

0410 

CIP 

11 

IP  101.. 

• • • 

-N 

UPDATE  ORIG.  TABLE*  IDl  ,EXT*-N,  NAMFL  1ST 

NX  X 

0420 

CIP 

11 

2 P IDl.. 

• « • 

- N 

UPDATE  BASIC  TABLE  UPDATE  IF  ANY 

MX  X 

04  30 

c**» 

NXX 

0440 

CAT  A PLANK/* 

*/ 

NXX 

0450 

NFL  AG  = 0 

NXX 

0460 

NFLAG2*  0 

NXX 

0470 

NOO  * 1 

NXX 

0480 

NB9  » 0 

- 

NXX 

0400 

LAAl  * * 27 

NX  X 

0500 

MAAl  * 12 

NXX 

0510 

KZARL*  96 

♦ L AA1*( 34MAA1) 

NXX 

0 5 20 

IMAGE  « 1 

NXX 

0530 

JDll  * 1 

NXX 

0540 

READ  (Nil* 

JDll, 

EPR*l) 

N0I1,NB11,IN0X11 

NXX 

0550 

N-  5 


1 

NPAOF  » 1 

NXX 

0S60 

101 

READ  (N5,  1000)  CLAS,  ProOF 

^'XX 

0 970 

IF  ( PCnrFl 1 I .FO.BLANK.OR. IMAGE.EQ.OI  1MAGE  = 0 

NXX 

0580 

2 

CALI  PAO-F 

NXX 

0590 

WR  1TEIN6, 2006) 

NXX 

0600 

900 

FAIL  PAGE 

NXX 

0610 

IF  ( IMACF.EO  .1)  GO  TO  38 

NXX 

0620 

902 

F 1 = 902. 

NXX 

0630 

PEAOINS,  1002, END*  10,ERR*9021)  ZCOOE 

NXX 

0 6A0 

IF  ( IPP»  D.EO.O)  GO  TO  9022 

NXX 

0650 

WR ITE(N6, 2002)  7C00E 

NXX 

0660 

NL  INF  = NL  INF  + 2 

NXX 

0670 

NXX 

0680 

9022 

GO  TO  1 1,2, 3, A, 5, 6, 7, 8,9,10, 11, 12)  ,Z2 

NXX 

0690 

9021 

NFL  AG  = NFL  AG  + 1 

NXX 

0700 

WRITF(N6,2r!05)  FI,  ZfODF 

NXX 

07  10 

GO  TO  902 

NX  X 

0720 

C**REflD  INOUT  PARAMETER?; 

NXX 

0730 

3 

NDll  = 3 

NXX 

0 7A0 

NBll  = 0 

NXX 

0750 

GO  TO  902 

NXX 

0760 

33 

CAIL  rARr(N5,N6,N9,  rLAS,PCOOE) 

NXX 

0770 

IMAGE  = 0 

NXX 

0780 

N5  * N9 

NXX 

0790 

rn  TO  101 

NXX 

0800 

A 

IF  (Z3.GT.1)  GO  TO  A2 

NXX 

0810 

PFAO  (N5,NAMl) 

NXX 

0 8 20 

HR  ITF(N6,NAM1) 

NXX 

08  30 

GO  Tn  qoO 

NXX 

ORAO 

A2 

GO  TO  00  2 

NXX 

0850 

5 

GO  TO  90  2 

NXX 

0860 

6 

CALL  LCHFKI  ZCOOE  ,N5,N6) 

NXX 

0870 

GO  TO  90  2 

NXX 

0880 

C** 

RFAO  ASIC  TABLFS  AND  STORE  ON  DA  DISK  11 

NXX 

0890 

7 

IX  = 7A 

NXX 

09  00 

IF  I Z3  .GF .2  ) GO  TO  73 

NXX 

0910 

IPFl  1)  * 0 

NXX 

0920 

IF  { ZA.NF.l  1 IPR ( 1)=1 

NXX 

09T0 

CALL  TP.ASICIIX) 

NXX 

09A0 

GO  TH  902 

NXX 

09  50 

r,*** 

DELETE  ALL  TEMPORARY  TABLES  ON  DISKll 

NXX 

0960 

73 

K =0 

NXX 

0«70 

CO  7301  1 = 1, NBll 

NXX 

0980 

IF  I INDXIK  1,7)  ,GE.O)  GO  TO  7301 

NXX 

0990 

K = K ♦ 1 

NXX 

1000 

INDXllI 1,2)  * 0 

NXX 

10  10 

7101 

CONTINUE 

NXX 

1020 

NBll  = NBll  - K 

NXX 

1030 

IF  (K.GT.O)  NOll-INOXl  1(NB11>1,4) 

- 

NXX 

lOAO 

IF  I Z2.F0.10)  GO  TO  1001 

NXX 

1050 

GO  TO  902 

NXX 

1060 

8 

IX  * ZA 

NXX 

1070 

IPRI 1)  * 1 

NXX 

1080 

IF  (Z3.LE.0)  GO  TO  8C 

NXX 

1090 

GO  TO  (Bl,82,B3,eA, 85fB6)»  Z3 

NXX 

IlOO 

N-  6 


NXX 

1110 

80 

CALL  PAGE 

NXX 

1120 

CALL  SETUP  A (IX) 

NXX 

1130 

CALL  SETUPR!  IX  ) 

NXX 

11  AO 

CAl  L SETUPC(IX) 

NXX 

1150 

CALL  SETUPnilX) 

NXX 

1160 

CALL  SETUPE!IX) 

NXX 

1 1 70 

CAl  L SETUPE!1X) 

MX  X 

1180 

CALL  ALL  XYZ(-A.,1,N6,1XX) 

NXX 

1190 

CALL  ALLXYZ!  0.,1,N6,IXX) 

NXX 

1200 

GP  tt  S02 

NXX 

1210 

81 

IE  (NL  INE.CT.IO)  CALL  PAGE 

NXX 

1220 

CALL  SETUPA(IX) 

NXX 

1230 

CALL  ALl  XYZ!  .0, 1,N6,IXX) 

NXX 

12A0 

CALL  ALLXYZ!-. 25, 1,N6,IXX) 

NXX 

1250 

GO  TO  902 

NXX 

1260 

82 

CALL  SETUPR(IX) 

NXX 

1270 

GO  TO  902 

NXX 

1280 

83 

CALL  SFTUPC(IX) 

NXX 

1290 

CO  TO  90  2 

NXX 

1300 

8A 

CALL  SETUP0!1X) 

NXX 

1310 

GO  TO  902 

NXX 

1320 

85 

CALL  SETl)PF!IX) 

NX  X 

1330 

GO  TO  902 

NXX 

13A0 

86 

CALI  SETUPE(IX) 

NXX 

1350 

CO  TO  902 

NXX 

1360 

9 

CALI  XECUTE 

NXX 

1370 

CP  TO  90  2 

NXX 

1380 

10 

CO  TP  73 

NXX 

1390 

lOOl 

jnil  = 1 

NXX 

lAOO 

WRITE!N11'JD11)  ND11,NB11,INDX11 

NXX 

lAlO 

WR  ITE!N6,  2003)  ND9, NB9,ND1 1 , NB 1 1 

NXX 

1 A20 

STOP 

NXX 

IA30 

11 

CALL  UPOA!  Z3,Z  A,Z5,Z6,IXX) 

NXX 

lAAO 

IE  ( IXX.GT.O)  NE  LA3=NFLAG<H 

NXX 

IA50 

GO  TO  902 

NXX 

1A60 

12 

IE  (ZA.GE.O)  GO  TO  1201 

NXX 

1A70 

N5  = NN5 

NXX 

lABO 

REWIND  N8 

NX  X 

1A90 

CO  TO  90  2 

NXX 

1 500 

1201 

NN5  = N5 

NXX 

1510 

CALL  STRING!  Z3,Z4,Z5,Z6,N5,N6,N8,ZC00E) 

NX  X 

1520 

GO  TO  902 

NXX 

1530 

ENO 

NXX 

15A0 

SUBRCIUTINF  PAGE 

C**  PGMxNXX  L.D. GREGORY.  VER.l  11-15-72.  FORTRAN  IV.  . EPCC 

rCMMnN/lNOUT/NLINE»NPAGE#PCODE( 20 ) . I OUM( 1 08 1 
COMMON/KLAS/  CLAS(20» 

1000  FnRMATI//26X. 19AA,A3/lHlt25X,19A4tA3/I 
2000  FORM AT(6X, 19AA,A3t6Xt  AHPAGEtlA/l 
WRITE!  6,1000)  CLAS,  CLAS 
WRITE!  6,2000)  PCOOE.NPAGE 


PAGFOOlO 
PAGE00  20 
PAGEOmo 
PAGFOOAO 
PAGEOnSO 
PAGF0060 
PAGE0070 
PAGEOOnO 


N-  7 


ooor>rior»r>r>n;' 


NPACF  = MPAGC  ♦ 
NLIME  = 8 
RETURN 
ENn 


PAGE0090 
PAGEOlOO 
PAGEOl  10 
P AGE0120 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

€♦ 

c 

c 

r 


RUBROUTIME  WC80 1 U BZ A , L ZA ,HZ A ,NCB ,KZP I f I D1 » I D2 « 1 0 3, 1 X 1 1 XX 1 
rOMMON/nEVICE/  N l,N2,N3,NA,N5,N6tN7fN8  tN9 ,NIO tNl 1 » N12 
PGM=NXX(NFM)  MODS. INDXIK 1801=300.  VER.3  l-lO 

EGM=MU5.  SEH.  VFR.2.  04-22-7 1 . FORTRAN  IV.F 

UTILITY  360  O/S.  VER.2.  02-19-71.  L.O.GREGORVfUNI T 3-53300, FXT 

EZA  IS  RZAILZA.MZAI 

TO  WRITF  rrMMON  BirCKS  ON  DIRECT  ACCFSSIOISK)  FILE  11 

=l  FOR  COMMON/CZAZA/ , *2  FOR  /CZA7B/,  ETC. 
(PERHAPS  AN  INDENTURED  CODEI  OF  THIS  LOAD 
(PERHAPS  THE  SEQUENCE  NO.  > OF  THIS  LOAD 
(PERHAPS  THE  DATE  OF  THE  DATAl 
= OR,  USF  AS  FIRST  AND  LAST  NOS.  OF  TABLES  IN  THIS  LOAD 
IX  = ON  INPUT! =l  USF  ini,=2  USF  ID2,»3  USE  BOTH, =4  USE  RANGE) 
IXX  = HN  CUTPUT(=0  LOADED  O.K.,=l  TROUBLE) 

KZRL  = NO. OF  A-RYTF  WORDS  IN  EACH  LOAD 

JDll  = FILF  11  ASSOC .VAR lABLE.  SEE  MAIN  AND  //GO. FTl IFOO 1 DD 

NDll  = VALUF  OF  PIRST  FREE  RECORD  ON  DISK  11 

NBll  = CURRENT(AND  FINAL)  NO.  OF  LOADS  ON  FILE  ll 

LZll  = NO  OF  4-BYTE  WORDS  IN  FIXED  LENGTH  RECORD  ON  FILE  11 

VI  - NO  OF  LOGICAL  RECORDS  EACH  OF  LENGTH  LZll  IN  LEAD*  I*. 

KEEP 


Nce 

ini 

ID2 

103 


COMMON  BLK 

identifier 

lOFNT  IFIFR 
IDENTIFIER 


NO.  , 

NO.  1 
NO.  2 
NO. 3 


LZ  A 


I ZLl 


INDXIK  I ,J  ) , 


FOR  I 


TIME  A COMMON 


NCR, 

IDl, 

ID2, 

NDll 

KZRL 


2000 

C*** 

C*** 

I 


LOAD  NO. (EACH 
* NBIKCURRENT) 

FOR  J=1  , = NCR,  COMMON  BLK  NO. 

IDENTIFIER  NO.  1 
IDENTIFIER  NO.  2 
= STAR  T OF  table 
» SEE  ABOVE 
RLKSIZE  ON  01 SK  ll 
ID3,  IDENTIFIES  NO.  3 

COMMON/INOUl  1/  J01l,N01L,NB  U,1N0X11(180,7) 
riMENSION  BZA(KZRL) 

TATA  LINDX/  IBC/ 

FORMAT!  IHO, 'BASIC  TABLE  I NDE X«I NDXi 1 ( ,7) 

1LFS=',  I4/IX,'ID1,  ID2  = ',  2112) 


BLK  IS  EMPTI 
IS  ONE  LOAD) 


J = 1 
J=2 
J = 3 
J=4 
J = 5 
J=6 
J=7 


NBll  ON  DISK  ll 


IS  FULL  AT  NO.  OF 


NBl I = NB  1 1 ♦ I 
IF  (NRll.GT.L  INDX) 


GO  TO  12 


C*4* 


INDX  IKNBll,  1) 
INDX  IKNB  11, 2) 
IN0X11(NR11,3> 
INDX  IKNBll, 4) 
MZ 

INDX11(NB11,5) 
INDX11(NB11,6) 
INDX  I KMP  11,  7) 
UNLOAD  B7A 


NCR 

IDl 

ID2 

NDll 

(KZRL-l)/LZA 

KZRL 

LZA 

ID3 


♦ 1 


WCBDOOIO 
WCRD0020 
-/5  wrPD0030 
BCD.WCBD0040 
5 lOWC 800050 
WCRD0060 
WCPD0070 
WCPDOORO 
wr.RDOOoo 
WCPDOIOO 
WCRDOl 10 
WCBDO 120 

wr 800130 

WCR00140 
WCflD0l50 
wCPnoi60 
wceool 70 

WCRD0180 
Wr8G0l90 
WCBD0200 
WC 800 2 10 
ED  wr,RD0220 
. WrPD0230 
WCeD0240 
WC8n0250 
WCBDO 260 
WC8I10270 
WC8D02P0 

wr  PnoP'^o 
wcpno3oo 
wCPno3io 
WCfi, 80320 
WCPD0330 
T ABWC.Rnn340 
WC.PD0350 
WCPr0360 
WCPD0370 
WC,Bn0380 
WCRr)0390 
WCRD0400 
WCPDOAIO 
WC8D0420 
WCPD0430 
WC8D0440 
WC.Rn0450 
WCBD0460 
WC 800470 
WCPD04R0 


N-  8 


j 


8 

JDll  = NOll 

wr.PD0490 

10 

WR  ITEINl  1*  jn  111  BZA 

WCBDOSOO 

NDll  = JDll 

WCBD05  10 

IXX=  0 

WCB00520 

RETURN 

WCBn05  30 

12 

WO  ITEIN6,  2000)  NRllflDltlDZ 

WCP00540 

STOP 

WCPn0550 

C*** 

*** 

wrPD0560 

C*** 

*•* 

*** 

WCBC0570 

ENTRY  RCBnil(BZA,LZA 

,MZA,NCB,KZRL, I01,ID2,I X,IXX) 

wrpno580 

r. 

WC BOO  590 

C PGM 

=NU5.  SFM. 

VER.2.  04-22-71, FORTRAN 

IV.FBCP 

.WCBD0600 

C utility  360.VFR.2.  02-19-71 

L.D. GREGORY  EORTRAK  IV 

EBCD 

WCR00610 

C TO 

READ  FROM  DIRECT  ACCFSSIDISKI  FILE  11  INTO  COMMON  BLOCK  NCB=1,2 

WCPD0620 

C NCR 

, IDl,  ID2,  IX  - SAMF  AS  ABOVE 

. KZRL*  DUMMY 

WCB00630 

c MATCH  I r rooFs 

wr BOO 640 

KRW  = C 

WCBn0650 

29 

ASSIGN  46  TO  KSl 

WCB00660 

IF  (IX.EQ.3)  ASSIGN  32  TO  KSl 

WCP00670 

rn  Tn  (30f40,30),  IX 

HCP90680 

30 

CO  34  J=1,NB11 

WCBn0690 

I = NPll  - J ♦ 1 

wr,B00700 

IF  ( IDI.NE.INDXIU  1,21  ) 

GO  TO  34 

wcpno7io 

GO  TO  KSl,  ( 32,461 

WCBD0720 

32 

IF  ( inZ.NE. INDXllII ,3)  ) 

GO  TO  34 

WCFC0730 

rn  TO  46 

WCB00740 

34 

CONT  INUE 

WCP00750 

IF  (KRW.FO.l  ) GO  TO  1 

wrflno760 

G3  TO  43 

WCBD0770 

40 

DO  42  J=l,Neil 

WCROO  780 

I = NRll  - J ♦ 1 

WCB90790 

IF  ( IDZ.EO.INDXIKI,  3)  ) 

GO  TD  46 

WCPnOBOO 

42 

rONT INUE 

wC“no8io 

IF(KRW.EQ.I)  go  to  1 

WCBC082n 

4i 

IXX=  1 

WCRn0R30 

RETURN 

WCR90840 

r*** 

IC  CODES  MATCH 

wcPDoaso 

46 

JBll  = I 

WCR.n0P60 

KZ  = INDX11(JB11,5) 

WCPD0B70 

jril  = INnxll(JBll,4) 

wcPDOoeo 

IF  (KRW.NE.O)  GO  TO  60 

WCPC0890 

c*** 

LOAD  IN  B7A 

W CBDOPOO 

52 

RFADINll'JDlU  BZA 

wcpno9io 

IXX=  0 

WCBr)09  20 

RETURN 

WCR00930 

C**4 

*** 

WCR0094n 

C*44 

*** 

*** 

WCP00950 

ENTRY  HWBDlKBZAtLZA 

,MZA,NCBtKZRL#I  Dl,ID2t  103,  IX,  IXX  t 

wce00960 

c 

- 

WCPD0970 

C PGM 

■NU5.  SEM. 

VER.2.  04-22-71. FORTRAN 

IV.EBCn 

.wcpno980 

C UTILITY  360.VER.2.  02-19-71 

L.D. GREGORY  FORTRAR  IV 

EBCD 

WCB00990 

C TD 

RE-WRITE  ONTO  DIRECT  ACCESSfDtSK)  FILE  11  INTO  SAME  SPACE 

WCBOIOOO 

C MATCH  IC  CODES 

WCPDIOIO 

KRW  - 1 

WCP01020 

GO  TO  29 

wcpnio3o 

I 

i 

I 

i 

i 

\ 


N-  9 


k 


C***  1 PAC  IN  RZ A 

60  WPITE(NU'jnil)  P7A 
IXX=  0 

INDXIKJBI  1,  7)  = 103 

PFTIIRN 

FNO 


WCP0i040 

WCBOIOSO 

wrBOi060 

WCP01070 

WCB01080 

WCPOIOOO 


SUBPnUTINF  WMAT3(K1ND,I X,X,LA,MA,NA,LtM,N,NLINE,TTL) 
r FGM«NXX  VFR.3.  A-25-73  NEM  L.D.GREGORY  I BM  360  FBCO 
C utility  triplex,  VER.l.  7/19/70.  FORTRAN  IV.  EBCD 

C PURPOSE,  WRITE  A MATRIX  N FROM  A SFRIES  OF  NA  SUCH, 
r KIND  = 1,  INTEGER 
C = ?,  REAL 

riMENSION  IX(LA,MA,NA)  , X(LA«MAtNA)t  TTH15) 

20C0  FORM  ATI IHI, 7 IX,  AHPAGE, I ^/6X, 19A4, A3I 
20C2  FORMAT! /6X,  12HMATRI X NO.*  ,I4/6X,15A4I 
20CA  FORM  ATI 6X,AH  ROW, 101 2X,4HC0L. ,I  2,4X1  ) 

2007  FORM  ATI 5X, I 5, 10G12.5/I ICX,10G12,5»  I 
20  08  FORMAT! 5X, 13, 1 1C, 91 12/1 6 X, 101 12) ) 

ASSIGN  141  TO  KSl 
IF  IKIND.FC.2)  ASSIGN  142  TO  KSl 
INFP  = M/10  ♦ 1 
INCM  = INCRX-L  6 
IF  INLINE  ♦ IMCM  - 61)  6,  6,  4 

4 CALL  PAGE 

C DFLETEO 

NL INF  = 9 

6 NLINE  = NLINE  ♦ 4 

WR ITFI 6, 2002)  N,TTL 
K = MINOI  10, M ) - 1 
WP1TEI6,2004)  1J,J-1,K) 

I = 0 

14  I = 1 ♦ 1 

GO  TO  KSl,  1141,142) 

141  WR  ITEI6,2008  ) I , I I X 1 1 , J , N) , J«1 , M) 

GO  TO  143 

142  WRITEie,.2007)  I, I X 1 1 , J ,N ) , J>1 , M) 

143  NL  INF  * NL  INF  -f  INCP 
IF  1 I-L)  16,  le, 18 

16  IF  INLINE  ♦ INCR  - 60)  14,14,  4 

18  RETURN 

END 


WM ATOOlO 
WMAT0020 
WM at  0030 
WMAT0040 
WMAT00  50 
WMATn060 
WM AT0070 
WMAT0080 
WMATOOOO 
WMATOlOO 
WMATOllO 
WMATO 120 
WMAT0130 
WM AT0140 
WM AT0150 
WMAT0160 
WMATOl 70 
WMAT0180 
WMAT0190 
WMAT0200 
WMAr0210 
W»' AT0270 
WM AT0230 
WM4T0240 
WMAT0250 
WMAT026n 
WM AT0270 
WM  AT0280 
WM AT  0290 
WM AT0300 
WMAT0310 
WMAT0320 
WM  AT0330 
WMAT0340 
WM  AT0350 


SUBROUTINE  WR I TR X I X , L X A , MXA , L, M , VA R, I NX , NLI NE , NP AGE, PCCOF, T ITL E IWRRXOO 10 
C LA0268.  VFR.  2 08/18/70  SCREENING.  L.D.GREGORY  3-55100  EX.T.  510  WRRX0020 

C UTILITY  360/65.  SUBR . WR I TR X. VER. 1.  12/06/69.  FORTRAN  IV  EBCO  WRRX0030 

DIMENSION  XILXA,MXA),TITLEI15),PC00EI20)  WRRX0040 

2000  FORMATI  1H1,71X,  4HPAGE  , I 4/6X  , 19A4  , A3)  WRRX0050 

2002  FORMATI /6X,4HVAR*,F12.5/6X,15A4)  WRRX0060 

2004  F0RMATI6X,4H  ROW, 1 01 2 X,4HC0L. ,1 2 ,4X)  ) WRRX0070 

2007  FORMATI5X,I5,10G12.5/I 1CX,10G12.5)  ) WRRX0080 


MKiwiAHMdIi 


aaar.rSrr 


N-  10 


o o n n o n 


I = 0 
INX  = C 

INCR  = '1/10  ♦ 1 

INCH  = INCP*L  ♦ 6 

ir  (MIKE  ♦ INCH  - 61)  6t  6,  A 

CAU  PACE 

NL  INE  = R 

N'L  IME  = NL  INE  ♦ A 

WR  ITEI  6,  2002  I VAR, TITLE 

K = MINOI  10, M ) - 1 

WR  ITFI  6, 200A I (J,Jsl,Ki 

I = I ♦ I 

WR  ITE(6,  2007)  I , ( X( I , J) , J»l ,M) 

NL  INE  = ML  INE  ♦ I NCR 

IF  ( I-L ) 16, 18, IR 

IF  (NL  INF  ♦ INCR  - 60)  IA,IA,  4 

R ETURN 

END 


SUPROUTINE 
LA0268.  VFR.  2 
UTILITY  360/65 


SnRTIVA  LUE  ,IRANK,I  TEM,N) 

08/18/70  SCREENING.  L.D.GREGORY  3-55100  EXT.  510 
OR  RAX.  1/05/70  FIXED  DIM.  FORTRAN  PASIC.  ERCD 


PURPOSE.  TO  TAKE  N ITEMS  EACH 
AND  RANK  IN  ORER  FROM 
AND  STORF  RANK  OF  THE 
AND  STORE  NO.  OF  ITEM 
DIMENSION  VALUE! 300),  IRANK(300)i 
IF(N-l)  52,  52,1 

nr  10  1 = 1, N 

IRANK!  I ) = 1 
N1  = N-1 

ro  40  I * 1,N1 

J1  = I ♦ 1 

no  40  J * J1,N 

IF  (VALUE!  I )-VALUE! J ) ) 30,30,20 

IRANK!  I ) = IRANK! I ) ♦ I 

CO  TO  40. 

IPANK(J)  * IRANK!JI  ♦ I 
COM  T IN  UF 
ro  50  I * 1,N 

J = IRANK  ( I ) 

ITFM(J)  = I 
RFTURN 
ITEM!  1 ) * 1 
IPANK!  D*  1 
RETURN 
END 


SUBROUTINE  KOROER I KA ,NA I 
PGM-NXX.  L.D.GREGORY.  VER.l  3-6-73.  FORTRAN 
TO  ORDER  FROM  SMALLEST  TO  LARGEST  - INTEGERS 


WITH  VALUE!! ) , 1=1, N 
SMALLEST  TO  LARGEST 
ITH.  ITEM  IN  IRANKII) 

WITH  JTH.  RANK  IN  ITE**(J). 
ITEM(300) 


ERCn 


N-  1 1 


WPRX0090 
WRPXOlOO 
WRRXOI 10 
WPRX0120 
WRRX0130 
WRRX0140 
WRPX0150 
WRRX0160 
WRRX0170 
WRRXOIRO 
WRRX0I90 
WRPX0200 
WRRX0210 
WRPX0220 
WRPX0230 
WRRX0240 
WRPX0250 
WRRX0260 


SOR  Tonio 
SnPT0020 
snpTno3n 
SORTOOAO 
<;nRT0050 
S0OT0060 
SnPTOOTO 
SORTOORO 
SORTOOOO 
SPRTO  100 
SOPTOllO 
SORT0120 
SORT0130 
SOP  T0140 
SOPTOISO 
SnRT0160 
SORTOITO 
SPRTO  180 
S^RTOIOO 
SPRTOPOO 
5PRT0210 
S3P  T0220 
SnRT0230 
SPRT0240 
SORTOPSO 
SPRT0260 
S0RT0270 
SnRT0280 


CROROOIO 

PRDROOPO 

ORDR0030 


niHFNSlON  K«(NAJ 
1 IF  (N'A.LF.l)  RFTURN 

NAl  = NA  - 1 
no  10  t=l,NAl 
L = KA(  I ) 

JA  = I ♦ I 
CO  10  J=JA,NA 

IF  (L  .LF.K A( J n GO  TO  10 
KA(  I)  = KAt  J ) 

KAIJ  ) = L 
L = KA(  1 ) 

10  FONT  IN  UF 

OF  TURN 

FNTRY  PORCERI  XA,NA) 

C TO  OPOER  FROM  SMALLEST  TO  LARGEST 
niMFNSION  XA(NA) 

21  IF  (NA.LF.U  RETURN 

MAI  = MA  - 1 

no  28  I=1,NA1 
X = XA(  I) 

JA  =1  + 1 
no  28  J=JA,NA 
IF  (X  .LF.XAI  J)  ) GO  TO  28 
XA(  I ) = XA( J ) 

XA(JI  = X 
X = XA ( n 
28  FONT  IN UF 

RETURN 
END 


rPOROOAO 
OP CR0050 
OR nR0060 
CRCROOTO 
0P0R0080 
OROROOOO 
ORDROIOO 
FROROllO 
ORCR0120 
OR  FRO  I TO 
0RDR0140 
PROROITO 
TT  CR  0160 
OROROITO 

REALS  0RDR0180 

0RCR0190 
0RCR0200 
nRnR02io 
nRCR0220 
OPCR0230 
rPDR02A0 
nRDR0250 
OR CR0260 
OR0R0270 
nRDR0280 
OR  DR  0290 
OP  CR  0300 
OROROTIO 
0RCR0320 


SUBROUTINE  TBASIC  (IX) 

TBASOOIO 

C FGM 

=MXX.  L.C. GREGORY 

VER. 

3.  7-20-73 

FORTRAN  IV.  FBCD 

TBAS0070 

C MODS 

. INOXllI  180)=25C. 

VEB.4  1-10- 

75  TRAS0030 

C TO 

RFAC  INCENTURED  COOED  TABLES 

AND 

STORE  ON  DA 

DISK  11. 

TBAS0060 

CIP  7 

1 1 

READ  ONTO 

DISK  11 

TPAS0050 

CIP  7 

1 2 

T 8AS0060 

CIP  7 

13. 

TRAS0070 

CIP  7 

16  -1 

TABLE  UPDATE 

TPAS0080 

C IP  7 

1 5 

REPLACE  TABLE 

TBAS0090 

CIP  7 

1 6 

PRINT  ALL 

TABLES  NOW  ON  DISK 

1 1T8AS0100 

Q^^t***************** ********** 

«*****A***4'*4'** 

TBASOllO 

C PGM»NU5(SEM)  STRATEGIC  ENGAGEMENT  MODEL  - I JUNE  71  FORTRAN  IV  EPCO  T8AS0120 

C EXECUTIVE  SUBPROGRAM  FOR  THE  BASIC  TABLE  PROCESSING  LINK  T8AS0130 

COMMON/EASTAB/  KZARL  TRASOIAO 

C PGM*NU5.  SFM  VER.2.  06-05-7 1 . FOPTR AN  1V.FRCP.TBAS0150 

C L.D. GREGORY, UNIT  3-53300,EXT  510.  TRAS0160 

C SUBROUTINE  PURPOSE,  TO  READ  A SET  OF  BASIC  LABELED  TABLES.  • TBAS0170 

INTEGER  ZIP,ZC0DE,Z1,Z2,Z3,Z6,25,Z6,Z7,Z8,Z9  TRAS0180 

COMMON/CEVICE/  N 1,N2,N3, N6,N5, N6, N7, N8 ,N9,N10,NI I , N12  TBAS0190 

COMMON /INOUT/NL  INE,NPAGE ,PCOOEI 20) ,MI  SC  17) ,XMI SCI  7) , ZI P , ZCODE ( 19 )TRAS0200 
1,  JRASH(20),  TRASHI  20),  IR|8),IC(8)  ,0UM(8)  tlOUMIS)  ,NFLAG,  NFLAG2  TRAS0210 
EQUIVALENCE  I ZCPOEI 1 ) , Z 1 ) , I ZCODE 12 ) , Z2 ) , I ZCODE ( 3 ) , Z3 ) TBAS0220 

1 ,(ZCODEI 6),Z4),(ZC0DEi5),Z5) ,IZC00EI6),Z6)  TBAS0230 


I 

! 


TRftS0240 

TBAS0250 

TPAS0260 

TRAS0270 

TRAS0280 

TRA5;0290 

TBAS0300 

TRASOBIO 

TBAS0320 

TflAS0330 

TBAS0340 

TRAS0350 

TRAS0360 


2 ,(7COnF(7»tZ7)tl2COOE<8),Z8>  t<ZC0DEI9  ),Z9» 

CHMMPN  /INHUU/  IPR ( 16)«JPAR<16)t  PAR ( 16» t LABEL 
rOMMPN/TNOUll/  JDllfNDlltNBlltl  NDXIK  1 80 1 71 

CZAZA 

INTPCFR  TULA 

CGMMnN/C7A7 A/NCBAt IDAl. tOA2 1 1 DA3* J ZARL *LZ A»MZ A« I C A ( 16 1 »CA( 16) 

1,  TULA)  15),HFADA(  37),IFMT 

2.  LAUL  AAl.M A 1,MAA  ItKA  1(27, 5)  ,VA  1(27,12) 

DIMENSION  BZA(  555) 

FQUIVALFNCE  ( NCP A , BZA ( 1 ) ) 
riMFNSIOM  LAPLAI 4, 8) ,LABLR(52) 

FQUIVAI  FNCE(  LABI  A(  1),  ICA(  1) ) , (LABLBC 1)  ,TITLA(  D) 

DATA  NPLANK/*  •/ 


C NOTF.  IF  BZA(LZA,MZA)  , THFN  LZA«RECORD  LENGTH  ON  FILE  11, 

C and  M7A=FNnUGH  TO  COVER  UP  TO  PAD ZA  BUT  NOT  MORE  THAN  ALL  OF  CZAZA. 

C IA1,1 AA1,MA1,MAAI  are  actual  and  ABSOLUTE  DIMENSIONS  OF  VAl, 

C AND  LA1,LAAI  ARF  ACTUAL  AND  ABSOLUTE  LENGTH  OF  KAl, 

C KZARUNO.OF  4 RYTF  WORDS  IN  CZAZA  UP  TO  PADZA 

r IDAl  AND  ICA2  ARF  INPUT  NUMBERS  TO  UNIQUELY  IDENTIFY  THE  TARLE^LOAD 
r IN  rZA7A  AT  ANY  GIVFN  TIME. 

C 

C PRINT  CPMTPni  , IPR(2)  * 0,  NO  PRINT  UNLE  SSI  Z4.  NE.  1 ) 

C * 1,  PRINT 

C IF  Z4  = I,  RFAD  FROM  FILE  5 AND  USE  IPR(2)  PRINT  OPTION 

C 2,  WRITE  ONLY  (FILE  61  = PRINT 

C 3,  READ  FROM  FILE  5 AND  PRINT 

C IF  74  = 4,  PFAD  FROM  FILE  5 AND  UPDATE,  TEMP  IF  Z7.LT.0 

C = 5,  REPLACE  ON  DISK  II,  ADD  IF  NEW 

C =6,  PRINT  ALL  BASIC  TABLES  (INPUTS)  NOW  STORED  ON  DISK  11 

C IF  IPR(3)  = 0,  USE  STD.  COL  HEADS  IN  PRINT  (IF  PRINTED) 

C =1,  USE  HFADS  READ  IN 

CFORMATS 

lOCO  FORMAT! 12X, 218, 12,21 5, 10A4) 

10C2  FORM ATI5A4,6(2X,2A4) ) 

1003  FORMAT  ((  20X  , 6(  2X,  2A4)  ) ) 

10C4  FORMAT!  I 3,  IX  ,3A  4,1  4,6F1  C.  0) 

1005  FORMAT!  ( 20X,5F  10. 0)  ) 

1006  F0PMAT(4( 2A4,A2,  I 10) ) 

10C7  FORMAT!  4!  2A4,A2,F10.0)) 

20C5  FORM  AT! IHO, 22HFRPOR  IN  BASIC  AT  El »F 8. 2 ,3X , A4 ,3 1 2 ,1 10  ,4 1 5 , 10 A4/ 
I ! 6X, 3HE 2«10G12.5)  ) 

C**  INITIALIZE.  NOTE, IF  B ZA ! L ZA  .MZ  A I , THEN  LENGTH  OF  DATA  IN  CZAZA 
C**  IS  KZARL  WHICH  I S .LE .! L Z A*MZA ) . VAl  IS  VA 1 ! LAAl , M A A 1 ) . 

I NCBA  * I 

LZA  * 555 
MZA  = 12 
LAAI  = 27 
MAAl  * 12 

KZARL  «96«-5*LAAULAAlR'MAA  1 
JZAPL  » KZARL 
NFLAG2  « 0 

IF  (Z4.E0.6)  GO  TO  15C 
CAP  READ  TABLES  AND  STORE 
READ!N5»  1000  ) TITLA 
IDAl  « TITLAIl) 


TBAS0370 
TBAS0380 
TRAS0390 
TRAS0400 
TRAS04I0 
TPAS0420 
TPAS0430 
TBA<;0440 
TRAS0450 
TPAS0460 
TRAS0470 
TBAS04BO 
TR AS0490 
TBA<:0500 
TRAS05in 
TBAS0520 
TRAS0530 
TRAS0540 
TBAS0550 
TRAS0660 
TPAS0570 
TBAS05RO 
T PAS0590 
TR  AS0600 
TPAS06  10 
TPA50620 
TRAS0630 
TP  AS0640 
TB AS0650 
TBAS0660 
TRA<;0670 
TBAS06R0 
TPAS06O0 
TRAS0700 
TBASOTIO 
TPA«;0720 
TflAS0730 
TPAS0740 
TRAS0750 
TPAS0760 
TPAS0770 
TPAS0780 


I ‘ 

i 


i 

[■ 


N-  13 


IHEADAJI  ),Isl,17) 
Gn  TO  9 

(HEAnA(I),I*18tK3l 
Gn  TO  12A 


iKAKIt  J) 

E.OI  GO  TO  16 


(VAKI  «J>  tJ*ltKAI 


C**  F 

16 

le 


ICA 

CA 

GO  TO 


L 

26 


ICA?  = TITLAI?) 

1DA1  = TITLAO) 
rOAA  * TITLAIA) 

MAI  * TITLA(5» 

79  * MA 1 

GO  TO  (At  100tA.120>4)  t 7A 
K3  = 2 * Z9  ♦ 5 
KA  = M1nO(79,  6) 

ASSIGN  lA  TO  KSl 

IF  (Z9.GT.6I  GO  TO  7 

ASSIGN  10  TO  KSl 

RFAD(N5,  1002  » I HEADA  I I ) ,I  =1, 1 7) 

IF  (ZP.LR.6)  GO  TO  9 
PEACINS,  1003  ) ( HEAnA( I ) ,I*18tK3l 
IF  (ZA.EO.A)  GO  TO  12A 
I = 0 
I * I ♦ I 

PEAO(N5t  lOOA)  (KAKIt  J)  tJ>lt5l  t ( VAl  ( I t J>  t J*1  » KA  I 
IF  (KAK  I,  D.LE.OI  GO  TO  16 
GO  TO  KSlf  ( lA,  10) 

PFAD(N5,  1005)  ( VA 1 1 I , J ) , J«7 , Z9) 

GO  TO  10 

ILl  LABELS  IN  CZA7A 
LAI  . I - 1 
REACINS, 1006)  ICA 
REA0(N5, 1007)  CA 
IF(LABEL.GT.O)  go  to  185 
or  181  II-lt8 

CO  18 1 JJ=  1, 3 
LABLAIJJ,  in»NBlANK 
DO  182  11=6,52 
LAPLBI  I I)»NBLANK 
no  183  11  = 2, A 
nr  183  JJ*l,LAl 
KAK  JJ,  II  )>NBLANK 
lY  = 3 

IF  (7A.F0.3)  GO  TO  102 

IF  ( ZA.FQ.l ) GO  TO  28 

IF  (ZA.FQ.A  .AND.  77.LT.0)  GO  TO  28 

IF  (ZA.EO.A  .ANO.  Z7.GF.0)  GO  TO  26 

IF  (ZA.EQ.5)  GO  TO  26 

Fl*25. 

GO  TO  31 
OAT  ON  DISK  11 
lY  - 3 

CALL  WMB011(BZA,LZA,MZA,NCBA,KZARL,10A1,(OA2,IOA3,IY,IXX) 
IF( IXX.EO.O)  GO  TO  32 
GO  TO  30 

CALL  MCBnil(6ZA,LZA,MZA,NCBA,KZARL«IOAl,IOA2,IOA3,IY, IXX) 
IF  ( IXX.FQ.O)  GO  TO  32 
El  « 30. 

HRITE(N6*  2005)E  1,ZC0DE  , 10A1,I0A2 

NFL  AG  » NFL  AG  ♦ 1 

RETURN 

TEST  FOR  PRINT 


N-  14 


TRAS0790 
TRASOflOO 
TBAS0810 
TPASO820 
TRAS0830 
T PAS08A0 
TRAS0B50 
TPAS0fl60 
TBAS0870 
TRAsnaeo 
TPAS0890 
TBAS0900 
TBAS0910 
TRAS0920 
TRAS0930 
TBAS09A0 
TflAS0O50 
TRAS0960 
TBAS0970 
TBASOtJBO 
TBASOPqO 
TRASIOOO 
TRASlOlO 
TRASin20 
TBAS1030 
TBAS lOAO 
TRAS  10  50 
TRAS1060 
TBAS1070 
TRASIOBO 
TeASl090 
TBASllOO 
TBASlllO 
TRAS1120 
TBASl 130 
TBASl lAO 
TBAS1150 
TRAS1160 
TRAS1170 
TRAS I IflO 
TRAS1190 
TBAS1200 
TBAS1210 
TRAS12Z0 
T BAS1230 
TBAS12A0 
TRAS1250 
TRAS 1260 
T8AS1270 
TBAS1280 
TeAS1290 
TBAS1300 
TRAS1310 
TRAS1320 
TRAS1330 


I 


32  TF  ( IPP( 2).F0.n.AND.Z4.LE.l)  RETURN 

C.nNT  INUF 

IF  (IPRI 2).LE.l.0R.IPR(2I.GE.3»  GO  TO  102 
C**  CALL  FROM  DISK  11  AND  PRINT  OUT 
100  lY  * 3 

CALL  RCOniKBZ  A,  LZ  A «MZ  A»NC8  A»KZARL  « lOA  1 1 TnA2 1 1 Y 1 1 XX ) 

IF  ( IXX.EO.O  ) GO  TO  102 
FI  = 100.03 
rn  TO  31 

102  lY  = IPPI  3) 

CALL  WPASICIK A 1, VAl«LAAl,MAAl,LAl,MAl«I0Al«inA2* I0A3f ICA.CA, lY 
It  TITLAtHEAPA  ) 

IF  ( IPRI 2I.LE.2)  CALL  PAGE 
PFTURN 

C**  RFCALL  from  file  11  AND  UPDATE 

12C  lY  = 3 

CALL  RCRDlHBZA,LZA,MZA,NCBAtKZARLtIDAl,IDA2tIY#IXXI 
IF  I IXX.FO.O)  GC  TO  122 
C 

FI  = liO.OA 
GO  TO  31 
122  1DA3  = Z7 
GO  TD  A 

12A  oeadIMS, lOCA  I (lP(J)tJ*lt5)  , ( TRASH! J)  ,J*1  ,6) 

IF  I IP!  n.LE.O)  GO  TO  18 
IF  (79.LF.E)  GO  TO  125 
PFAD(N5, 1005)  ( TRASH (Jl tJ»7tZ9) 

125  rn  126  1=1, LAI 

IF  IKAK  I,  n.EO.IRl  1))  GO  TO  128 
12e  CONTINUE 
C**  ADC  AT  END  OF  TABLF 
lAl  = LAI  ♦ I 
I = LA  1 

12?  ro  130  J=l,5 
nC  KAII  ItJ)  = IR(J) 

DO  132  J=  1,  Z9 
132  VAK  I,  J)  = TRASHCJ) 

GO  TO  12A 

C**  PRINT  ALL  NOW  ON  DISK  11 
15C  CALL  PAGF 

CO  152  I*ltNBll 

IF  I INCXllI  ItU.NE.NCBA  ) GO  TO  152 
IF  ( INDXIKI  ,2).LF.  0)  GO  TO  152 
jnil*INDXll(  I, A) 

READlNll* JDll)  BZA 
IY*IPP (3) 

CALL  WBASICIKAltVAl ,LA A1,MAA1, LAI tMAl , I OAl , I DA2 , 1 DA3 , IC A ,C A, lY 
1,  TITLAtHEADA) 

C CALL  PAGF 

152  CONTINUE 
RETURN 
END 


TPAS13A0 
TBAS1350 
TBAS1360 
TRAS1370 
TRASnflO 
TfiAS1390 
TBASIAOO 
TBASIAIO 
TRASIA20 
TPAS1A30 
TBASIAAO 
TRAS1A50 
TRAS1A60 
TRAS1A70 
TRAS1A80 
TBAS1A90 
TRAS  1500 
TBAS1510 
TRAS1520 
TRAS1530 
TBASl 5A0 
TRAS1550 
TRAS1560 
TPAS1570 
TRAS 1580 
TPAS1590 
TRAS1600 
TRAS1610 
TRAS1620 
TRASIA'^O 
TRAS 16A0 
TRAS 1650 
TRAS1660 
TRAS1670 
TPASIARO 
T PAS1690 
TRAS1700 
TPAS1710 
TBAS1720 
TPASl 730 
TPASl 7A0 
TRAS1T50 
T PASl 760 
TRAS 1770 
TRAS17R0 
TRAS17O0 
TPASl BOO 
TRASIRIO 
TBAS1820 
TPAS1830 
TBASIRAO 
TRAS1850 


k 


m 


N-  15 


SUBRnUTINF  WBASICC JXf XtLXA ,MXA » L t M» I D1 , I D2« 1 03 1 1 C A, CA, I NX 
It  TITLF.HFAn  I 

C TO  WRITE  INOFNIURED  COOED  TABLES 

C PGM-NXX  (WITH  CLASSIFICATION  LABELS)  VER.4  06-20-73  FORT. IV  FBCO 

C L.C. GREGORY, UNIT  2-5A240,EXT  510. 

C SUBRCUTINE  PURPOSE,  TO  WRITE  A SET  OF  BASIC  LABELED  TABLES. 

C TITLE  IS  15A4  * 60H  IDl  £ 102  ARE  UNIQUE  TABLE  lOENT  COOES. 

C HEAD  IS  A4, 3AA,A4  » 20H,PLUS  8(  2A4)*64H,  PLUS  8(  2 A4 )»64H. AL L* I A8H 
C INX  * 0 , USE  STANDARD  HEADINGS 
C * 1 , FURNISH  COL  HEADS  AT  CALL  TIME 

C WRITES  array  JX  = IR0W  LABELS)  SIDE  BY  SIDE  WITH  ARRAY  Xa(OATA). 

C ICA  CONTAINS  A INTEGER  NAMES  AND  VALUES 
C CA  CONTAINS  A REAL  NAMES  AND  VALUES 

COMMON/DFVICE/  N 1 ,N2 , N 3, NA ,N5,N6 ,N7, N8 ,N9, NIO , N1 1 , N12 
INTEGER  7IP,7COrE, TITLE 

C0MM0N/IN0UT/NLINF,NPAGE,PC00EI20),MI SC(7) ,XMISCI7),ZIP,ZC0DE( 19 
I .JR  A SHI  20), TRASH  I 20), (RIB), I CIS) ,DUM(8) , I OUM (B ) , NFL AG , NF L AG 

riHFNSION  JXILXA,5),  XILXA,MXA|,ICA(l6) ,CA(16) 

DIMENSION  TITLEI15),  HEAD(37) 

C FORMATS 

2000  FORMAT!  IHl, 7IX,  AHPAGE , I A/6X, 19AA ,A3 ) 

2002  F0RMAT(//6X, AHIOl=,  18, 8H,  ID2«,I8,8H,  ID3»,IA/ 

1 £X,10HTARLE  no.  ,2I8,IA,2I 5,10AA) 

20CB  FOPMATI IHO, 33HEPPOR  IN  SUBROUTINE  WBASIC  AT  E1«,F8.2, 

1 /6X,10HTAnLF  NO.  ,21  8 ,I  4,21  5, 1 OAA /(6  X,3HE2*  10  G12 .5  ) I 


20  12 

1 

2014 

] 

2016 

2017 

2018 

1 

1 


22 


C4P 

24 

C 

C 

26 


FORMATITX,  3HROW,7H  ID.  , 12HNAME  • ♦ • *,5H  0ATA,6(4X  ,4HC0L., 
13,  3X  )/(  A0X,6I  AX,4HC0L.,  I3,3X)  ) ) 

FORMAT! 7X,  3HR OW, 2X ,A4, 1 X, 3A4 , 1 X, A4,6 (4X ,2 A4, 2X ) / 
(AQX,6(4X,2AA,2X))  ) 

F0RMAT(/5X,2I5,2H.  , 3A4, I 5, 6G 14. 6) 

FOPMATI /5X, 215, 2H.  , 3A4, 1 5, 6G 14. 6/1 40X ,6G14.6 ) ) 

FORMAT! /12X,7H INTEGER ,3X , 4( 2X ,2A4, A2, G 13. 6) / 

(12X,7HREAL  , 3X,4l 2X  ,2A4,A2 ,613. 61 ) ) 

FI  * 1.0 

IF  (L*M.LE.LXA*MXA.ANO.L.GE.O.ANO.M.GE.O)  GO  TO  22 
NFLAG  = NFLAG  ♦ I 

WR  ITF(N6, 200SIE  1, title  ,101,1 D2, I 03,1 D4 
RETURN 

ASSIGN  3.6  TO  KS 

IF  (M.GT.6)  ASSIGN  38  TO  KS 

I * 0 

K 3 * MINOI  2*M,24)  ♦ 5 
X4  » MINOI  M,12)  - I 
INCR  * IM-l)/6  ♦ 2 
INCM  » INCR PL  ♦ 8 

IF  (NLINF«INCM.LF.63)  GO  TO  26 

CALL  PAGE 


NL  INF  « NLINE  ♦ 6 

WR  I TE(N6, 200  2)  ID  1,102,10  3,  TITLE 

IF  (INX.GT.O) 

WRtTF(N6, 2C12)( J, J>1,K4) 

GO  TO  32 


GO  TO  30 


WRASOOlO 
WBAS0020 
WRAS0030 
WBAS0n40 
WBAS0050 
WRAS0060 
WB AS0070 
WBAS0080 
WBAS0090 
WRASOlOO 
WBASOllO 
WBAS0120 
WBAS0130 
WBASO lAO 
WBAS0150 
)WPAS0160 
2WBAS0170 
WBAS0180 
WBAS0190 
WB AS0200 
WBAS0210 
WRAS0220 
WRAS0230 
WP AS02A0 
WBAS0250 
WP  AS0260 
WRftS0270 
WBAS02B0 
WBAS0290 
WBAS0300 
WBAS03in 
WBAS0320 
WBAS0330 
WRAS0340 
WRAS0350 
WPAS0360 
WBAS0370 
WRAS03B0 
WRAS0390 
WPAS0400 
WB ASOAlO 
WBAS042n 
WBAS0A30 
WBAS0A40 
WRAS0A50 
WRAS0A60 
WRAS0470 
WBAS0480 
WBAS0490 
WRAS0500 
WBAS0510 
WBAS0520 
WRAS0530 
WBAS0540 
WBAS0550 


N-  16 


30 

WR IT E(N6t 20 14) (HE ADI K) ,K-1,K3) 

WBAS0560 

32 

IF 

(L  .LF.O) 

GO  TO  42 

WBAS0570 

CA# 

WBAS0580 

14 

I 

» I ♦ 1 

WBAS0590 

GP 

TO  KS,(36,38I 

WBAS0600 

36 

WR 

ITE( N6t 2016)1 t(JX(I  ,J) ,J-1,5)  , 

(X(I,K),K«1,M) 

WPAS0610 

GO 

TO  40 

WBAS0620 

38 

WR 

ITF(N6,2017)I ,( JX( I ,J) ,J-1,5)  , 

(X(I ,K) ,K«1,M) 

WBAS0630 

40 

NL 

INF  * NL  INE  <•  INCP 

WBAS0640 

IF 

( I .CF.L  ) 

GO  TO  42 

WBAS0650 

IF 

INLINE  ♦ INCP. LE. 61) 

GO  TO  34 

WRAS0660 

GO 

TO  24 

WBAS0670 

CP* 

WRAS0680 

42 

WR 

ITE(N6,20ia)ICA,CA 

WPAS0690 

NL 

INE  = NL  INE  ♦ 3 

WRAS0700 

PFTURN 

END 


WBAS0710 

WRAS0720 


IBM  370  FORTRAN 


UPnA(M3tM4tM5tM6»IXX) 

VFR.l.  7-29-73. 

*70. 

TO  BASIC  TABLES  IN  NAMELIST  FORMAT 
CCMMnN/0EVirE/Nl,N2,N3,N4iN5tN6.N7,N8#N9tNl0fNll,Nl2 
C0MMnK/lN0UT/NLINF,NPAGE,DUMAf35» , NC0DE(19) 
inUMB(72l,  NFLAG,  NFLAG2 

COMMON /INOUl  1/  JDll,NDll,NBll,I  NDXll(180,7) 


SUPPOUTINF 
C PGM  = NFM  . L .0  .G. 

C MODS.  INDX  1 11  IflOI 
C TO  PFAC  CHAMGFS 


CZ  AZA 


IV 

2 


EBCO 


INTEGER  TITLA 

rOMMON/CZAZA/NCBAtlDAlt I0A2«  IDAS* JZAR L t LZ A t MZ A » I C A ( 1 6 ) t C A ( 16  I 
It  TITLA(15)tHEADA(37»t IFHT 
2t  LAltLAAltMA  It M AA 1»KA 1 ( 27, 5) * VA 1 ( 27  * 12 ) 
riMFNSION  BZAI  5551 
FOUIVALENCE  INCP A tB ZA I 1 1 » 

PAT\  N:)tLZtMZtLA,MA/  I ,>  3 > ,1!  ,27  , 1 2 ^ 

INTEGER  TITLE, POWNAM 

DIMENSION  TITLFI10l,RnNNAM(3l,0ATA(12) 

It  ICONSTI  AJtCONSTI^I 

TATA  DFAULTt  IFAUlT/l.E-66,  12345678/ 

EQUIVALENCE  I T I TLA  I 6 1 ,TI  TLE  1 1 1)  , 1 1 CONSTIll  , I C 1 1 , 11  CONST  ( 2 » t IC  2 ) t 

1 ( ICONS T<  3I,IC3) ,1 IC0NST(4I t IC4) tICONSTIll ,RC1) , (CONST  I 2 ) t PC 2 ) t 

2 (CONST(3>,RC3),(CONST(4),RC4» 

N'AMFLIST/NAMUP/ini,  1 02,103,  TITLE,  ROHSEO,ROWNAM,CaCE,  DAT  A 

1,  ICl, IC2, IC3, IC4,  RC1,RC2,RC3,RC4, RETURN 

2,  ICONST, CONST 

DATA  BLANK, LANK/»  *,*  • /,  JXXX/*  XXXX*  / 

c***  sample  input 

CIP  11  1 2 6210  -1  UPDATE  ORIGINAL  TABLE. 

CCNAMUP  ROWSE0«10.,  nATA(2l  > 222.  ,333.  ,0ATA(7) -7.  , CFND 

CCNAMUP  R0WSEQ*14.,  COOE«6253.,  DATAOI-  3.,IC2«  2,  RETURN-1.,  GEND 
CIP  8 EXECUTE 

CIP  11  2 2 6210  -1  UPDATE  TABLE  UPDATE 

C ETC. 

CPPA 


UPCAOOlO 
UP  CA00  20 
UP  CA0030 
UPDA0040 
UPCA0050 
UPnA0060 
UPDAOOTO 
UP0A0080 
UP0A0090 
UPDAOlOO 
UPCAOllO 
UPDAOIZO 
uPCAono 
UPrA0l40 
UPDA0150 
U>  nA0l60 
UPDA0170 
UP  DAO IflO 
UPnA0l90 
UODAOZnO 
UPPAOZIO 
UP0A0220 
UP0A0230 
UPnA0240 
UPCA0250 
UPPAOZNO 
UPCAn270 
UP0A02P0 
UP  rA0290 
UPOA030C 
UP0A0310 
UPCA0320 
UPCA0330 
UP0A0340 
UPDA0350 


2000 

FORMAK  IHOt  *Nn  TABLE  FOUND  TO  UPDATE  FOR  ID*  » 

,21  10) 

UP  DAO  3 60 

2002 

FORMAK IHO, 'TABLE  ALREADY  FULL  FOR  ID*', 2110,' 

, RCWSEQ*',F4.0) 

UP  DAO  370 

20C4 

FORMAT ( IHO, 'EXTRA  LINE  ADDED  TO  TABLE  FOR  1 0- • 
1 ',  RnwSFO=' ,F4.0) 

,2110, 

UPCA03B0 

UPDA03O0 

20C6 

F0RMAT{5X,  I5f2H.  «3A4«{5t  6G14. 6/40Xt6G14.6) 

UPDA0400 

20C8 

FORMATC IHO. 'NFW  LINE  FOR  TABLE  WITH  TD«*«2I10) 

UPDA0410 

20^3 

FORMATIIHO, 'CONSTANTS  UPDATED' ,3X.4<2X.2A4,A2, 
1 / 21X.  4(2X.2A4,A2.G13.6n 

G13.6) 

UPDA0420 

UPCA0430 

UPCA0440 

1 

KZARL  = 06  ♦ 1 A*( 5 ♦ MA ) 

TXX  = 0 

RETURN  =0, 

IPR  INT  = M4 
in  » M5 

ID?  = M6 

103  = -1 

UPCA0450 
UPCA0460 
UPDA0470 
UP  0A0480 
UPnA0490 
UPDAOSOO 
UPCA0510 

2 

NBl  = NR  11  ♦ 1 
rn  10  j=i,NRii 

I = NBl  - J 

IF  I INOXIKI  ,1).NE.  n GO  TO  1 3 

UPDA0520 
UPDA0530 
UPDA0540 
U’  CA0550 

IF  I INDX  1 U 1.2)  .EQ.IDI.AND.INDXIK  I »3).EQ.I02I 
GO  TO  10 

GC  TO  4 

UPDA0560 

UPDA0570 

4 

IF  (M3.GT,l)  GO  TO  14 

IF  ( INDXIK  1,7)  .GE.O)  GO  TO  14 

UPCA0580 

UPnAn590 

10 

CON  T IN  UE 

UP  CA0600 

C*** 

NO  TABLE  FOUND 

UPCA0610 

12 

IXX  = IXX  ♦ 1 

WRITF(M6,2C0C)  1D1,I02 

NLINE  « NLINE  ♦ 2 

UPnA0620 

UPnA0630 

UPnA0640 

13 

IF  IPF7UPN.GT..01)  RETURN 

READ  (NS.NAMUP) 

GO  TO  13 

UPCAn650 

UPDA0660 

UPnA0670 

c*** 

TABLE  FOUND 

UP  CA06R0 

14 

JP  a I 

jnil  * INDX11(JP,4) 

READ  (Nll'JDll)  PZA 

UPrA0690 
UPCA0700 
UP0A07  10 

c*** 

READY  FOR  UPDATE 

UPnS0720 

20 

ro  22  1*1,  12 

UPnA0730 

22 

EATAI  I )*nFALLT 

POWSEO»Ci. 

CODF*OFAlJLT 
no  23  1*1,4 

ICONSTI I )»IFAULT 

UPnAn740 

UPDA0750 

UPCA0760 

UPCA0770 

UPCA0780 

23 

CONST!  DaOFAULT 

ROWNAM! 1)  < JXXX 

RnwNAM(2)  « LANK 

ROWNAHO)  « LANK 

UPnA0790 

UPDAOROO 

UPDAOBIO 

UPnA0820 

C4** 

READ  NAMELIST 

UPDAOBSO 

READ  (NS.NAMUP) 

KSEO  - ROWSEQ  ♦ .01 

KODE  ■ CODE  ♦ .01 

CO  28  I«1,LA1 

IF  IKAl!  I,  n.EQ.KSEO)  GO  TO  33 

UPCA0840 

UPDAOBSO 

UPDAOSeO 

UPDA0870 

UP0A0880 

28 

CONTINUE 

IF  (LAl.LT.LA)  GO  TO  29 

UPnA0890 

UPOA0900 

N-  IS 


p»— =r- 

! 

i 

IXX  = IXX  -»  1 

’’I 

:'3 

i 

fl 

i 

UPCA0910 

WP  ITE(N6  t 2002)  IDl,  ID2t  ROWSEQ 

UP  CA0920 

m TO  13 

UPDA0930  i| 

c*** 

Arr  L IMF  TO  UPOATF 

UPn40940 

29 

141  = LAI  ♦ 1 

UPnA0950 

KA  HLA  1,  1 ) = KSEO 

UPCA0960  j; 

ro  30  1=1,3 

UP0A0970  (; 

30 

KAKLA  1,  !♦!)  = RrWNAMd  ) 

UP0A0980 

KAKLAl.b)  = KPOE 

UPnA09O0 

CO  31  1 = 1, MAI 

IIPOAIOOO 

31 

VAKLAl,  I ) = DATA(  I ) 

UPOAIOIO 

r*** 

PP  INT 

UP  DA  1020  *■ 

IF  (NL INF .GT.5')  CALL  PAGE 

UPC41030  M 

WP  ITE(N6, 2004  ) 101,  102,  ROMSEO 

1)PCA1040  J 

JPOW  = LAI 

UPPAIOSO 

GO  TO  42 

U PDA  1060 

c*** 

FCUNO  POW,  TEST  FOP  CODE 

UP0A1070  i 

33 

JPOW  = 1 

UPOAIORO 

1F( cnOF.NC.OFAULT ) K A l( JROW, 5 ) -KODE 

UPOAIOOO  !; 

c*** 

TFST  FOR  OATA 

UPD41100 

36 

rn  40  1=  i,MA  1 

UPCAlllO  ,! 

/ir=rATA(  1 1 

LIPOAIWO 

IFl  AC.NE.CFAULT  ) VA  1 (JROW,  1 ) »AD 

IJP0A1130  % 

<i0 

CONT INUF 

UPn4ll40 

IF  ( NL IME .GT.55)  CALL  PAGE 

UP  DA  11  50  ? 

WR  1TF(N6,  2008)  IDl,  102 

UPCA1160 

42 

WP  ITE(N6, 2006)  ( K A 1 (JPOW, J) , J=1 ,5) , ( VAl ( JROW , J)  , J«1,MA1 ) 

UPDA1170 

ML  IMF  * ML  INF  ♦ 4 

UPOAllRO 

j=0 

UPOAlloo  i> 

Cn  430  1=1,4 

IIPDA1200  h 

K=ICOMST(  I) 

UPnA1210 

IF(K.EO.IFAULT)  GO  TP  43 

uprAi22o 

1CA(  I*4)  = K 

UP  0412 30 

J = 1 

UPr4l24n  ;! 

43 

AD=COMST(  I) 

upnAi25n 

IF(  AC.EO.CFAULT ) GO  TO  430 

UPnA1260 

CA(  1*4)  = AD 

UP0A1270 

J=1 

UPnAl2R0  ;< 

43C 

CONTIMUE. 

UP  041290  1 

IF(J.FO.O)  GO  TO  44 

UPOAITOO  I 

WR  ITE(N6,2043)  1CA,CA 

uPCAmo 

NL  INE-NL  INE^3 

UP041320  ! 

c*** 

READ  MORE  CHANGES 

UPOA1330  !: 

44 

IF  (RETURN. LE.. Cl)  GO  TO  20 

llPnA1340  V 

C**4 

WR  ITF  UPDATE  ON  01 SK  11 

UP0A135O 

MBl  * NBll  ♦ 1 

UP041360 

on  46  J>1,NB11 

UPrA1370  i 

I « NBl  - J 

UPnA1380 

IF  ( INCXIK  I,l).NE.l)  GO  TO  46 

U PD A 1390 

IF  ( INOXIK  I,2).EQ.IDl.AN0.tN0Xll(t  ,3).E0.IO2)  6C  TO  48 

UP0A1400 

46 

CONTINUE 

UP0A1410 

GO  TO  12 

UPCA1420  J 

48 

JB  > I 

UPCA1430  ? 

IF  ( INOXIK  JR, 71. GE.O)  GO  TO  50 

UP0A1440 

IDA3  « 10  3 

UPCA1450  1 

f 

y 

N-  19 

% 

!' 

JRll  1=  IN0X11(JB«4) 

WRlTE(Nn*J011)  PZft 
GO  TO  52 

C***  CPFATF  TEMPORARY  FILE  (ID3»-1I 
50  KZARL  * L? 

IDA3  * 103 

CALL  WC33  U(BZA,LZA,MZA,NCBA,KZARL,IOl  ,ID2fID3,  IX,  ir  I 
C***  PRINT  OPTION 
52  IF  (IPRINT.LE.n  GO  TO  60 

IF  ( IPPINT.LF.2)  GO  TO  5A 

lY  = 3 

CALL  R CP  D 1 1 1 R ZA  , I Z , MZ  , NC  B , KZ  ARL  , I 01 « I D2  , I Y , I X I 
IF  ( IX  .FO  .0  ) 30  TO  5A 

GO  TO  12 
5*  IP  = I 

CAl  L WBASICIKA 1 , VA I , L AAl ,HAA1 ,L A1 « MAI , ID A1 , 1 0A2 , I CA3 , I CA, C A, IP, 
I T1TLA,HEA0A) 

60  PFTORN 

FNO 


UPOA1A60 
UP0A1A70 
UPCiUBO 
UPCAIARO 
UPDA1500 
UPCA1510 
UP  DA  1520 
UP0A1530 
UPCA15A0 
UPDAIBBO 
UPCA1560 
UP  CAl 570 
UPCA1580 
UPDA1590 
UPDA1600 
UPnA1610 
UPDA1620 
UPCA1630 
UPCA1640 


M 


ii 


c 

C FOR 
CALLS 
CXX  12 
CXX 

CXX  12 
CXX  12 


SUBROUTINE  STR  ING(M3,MA,M5,M6,N5,N6,N8,NC00EI 
TO  RECORD,  RETRIEVE,  OR  PRINT  STRINGS  ON  TAPE  8) 

NFH  AT  DALLAS.  NEEDS  l.MOOS  TO  MAIN  2.  TAPE  8. 


10-28-74 


I 0 


74000 

74000 

74000 


READ  TO  XXX, PUT  ON  TAPE  8 ,CASE»7400 ,NW> 
END  OF  STRING! 

FIND  CASE  74000  ON  TAPE  8, INSERT  HERE. 
PRINT  CASE  74000, ALL  CASES  IF  CASE-0 


CFORMATS 


STNGOOlO 
STNG0020 
STNG0030 
STNG0040 
1.STNG00  50 
STNG0060 
STNG0070 
STNGiOOBO 
STNG0090 


ICCO 

FORMAT!  P0A41 

STNGOIOO 

1001 

FORMAT!  A4) 

STM  GOl  10 

2000 

FORMAT! IX, 14, IH., 20A4I 

STmgoIZO 

1002 

FORMAT!  A4,  6X  , 1 10,  20X  , 10A41 

STNGO  130 

20C1 

FORMAT!  4HCASE,6X,I1C,2CX,10A4| 

STNG0140 

2003 

FORM AT!54HXXX  12  1-1 

END  OF  string, STNG0150 

I 

26X  1 

STNGO 160 

20C4 

F0RMAT!4HEN0  ,76X) 

STNGO 170 

2005 

FORMAT!  6X,  5HC A SF-, 1 10 , 1 6H  , 

NOW 

ON  TAPES! 

ST  NG0180 

2006 

FORMAT!  6X,  5MCASE-,I10,  9H, 

FOUND  ,6X,10A4! 

STNGO 190 

2007 

FORMAT!  6X,  5HCASE-, I 10, 13H, 

NOT 

FOUND  ! 

STNG0200 

CNOTFS 

• 

STNG0210 

STNG0220 
CARD.  STNG0230 
OF  TAPF8STNG0240 
STNGO  .'50 


ZIP 
END 
12  2 CARD. 
AND 


C l.TFE  FIRST  CARD  AFTFR  A XXX  12  I 0 MUST  BE  A ZIP  CARO. 

C 2. THE  NFXT  CABO  AFTER  A XXX  lEND  OF  STRING!  MUST  BE  A 

C.  3.Z6-1  USED  IN  XXX  12  1 0 MEANS  WRITE  STARTING  AT  FRONT 
C 4. CAN  LOAD  A CASE  AND  USE  IN  SAME  JOB  IF  LATER  USE  A XXX 
C 5. PRINT  OF  CASE  DETAILS  APPEAR  ONLY  FIRST  TIME  PUT  ON  TAPE8, 

C THEN  ONLY  IN  INPUT  CARO  IMAGES! IF  TURNED  ON!. 

C e.CASE  DETAILS  PRINTED  BY  XXX  12  3,  ALL  CASES  IF  CASE-0.  IF  DESIRED, 

C BEST  TO  PRINT  BEFORE  USING  A XXX  12  2 CARO,  SINCE  THIS  MEANS 

C FIND  ANC  USE  IMMEDIATELY. 

C 7. IF  CANNOT  FIND  A CASE  FOR  XXX  12  2 , PROGRAM  STOPS, XXX  12  3 GOES  CNSTNG0310 

C 8.  IF  STRING  CONTAINS  TABLE  UPDATES,  TABLES  MUST  BE  AHEAD  OF  UPDATES,  STNG0320 

C EITHER  IN  THIS  STRING  OR  IN  PREVIOUS  STRING,  OR  REGULAR  STREAM.  S1NC0330 


N-  20 


STNG0260 

STNG0270 

STNG02R0 

STNG0290 

STNG0300 


likiiilttiMitiiMlli 


I 


I I 


f 


I 


c 

c.ON  XXX  12  1 CARO  USE  COLS  42-80  FOR  STRING  TITLE. 

STNG0340 

riMFNS  ION  CARO!  201  .NCOOF  ( 191  i TI  TLEI 101 

STNG0350 

CATA  CASF,  XXX,  FNO/ 4HC A SE , 4HX X X ,4MEN0  / 

STNG0360 

1 

IF  (M3.GT.n  GO  TO  2C 

STNG0370 

NUTAPF  = M6 

STNG0380 

IF  (NUTAPE.FO. 1)  GO  TP  10 

STNG0J90 

c 

SEARCH  FOP  FNO 

STNG0400 

6 

PEAT  (N8,1001)  TEST 

STNG0410 

IF  ( TFST.NE  .ENP  » GO  TP  6 

STNG0420 

FACKSPACE  NB 

STNG0430 

10 

WRITEINP,  2CCn  M5,(NC0nEn  1,1*10,19) 

STNG0440 

12 

REAP  ( N5,  ICCC)  CARD 

STNG0450 

IF  (CARPI  IJ.EQ.XXX)  GO  TO  14 

STNG0460 

WR  ITF(Ne,  1000)  CARO 

STNG0470 

GO  TO  12 

STNG0480 

U 

WRITE! Ne, 2n03) 

STNG0490 

WRlTE(Ne,2004) 

STNG0500 

FNO  FILE  NB 

STNG0510 

REWIND  N8 

STNG0520 

WR  ITE(N6,  200E)  M5 

STNG0530 

RETURN 

STNG0540 

C 

FINC  CASE*  M5 

STNG05S0 

20 

IF  (N3.GT.2)  GO  TO  30 

STNG0560 

21 

READ  (N8,  1002)  TEST,  NUW,  TITLE 

STNG0  570 

IF  ( TEST .FO. END ) GP  TO  26 

STNG0  580 

IF  (NUM.EO.  H5  ) GO  TO  24 

STNG0590 

22 

READ  (N8,  1001)  TFST 

STNG0600 

IF  ( TFST  ,F0 .XXX ) GO  TO  21 

STMG0610 

m TO  22 

STNG0620 

2A 

IF  (M3.FQ.3)  GO  TO  32 

STNG0630 

WRITE!  N6,  2006)  M5,  TITLE 

STNG0640 

N5  = N8 

STNG0650 

RETURN 

STNG0660 

26 

WP  ITEIN6, 2007)  M5 

RTNG0670 

IF  (H3.E0.3)  RETURN 

STNG0680 

STOP 

STNG0690 

C 

PRINT  CASEIS)  ON  TAPE  8,  ALL  IF  CASE  NUMBER  IS  ZERO 

STNG0700 

30 

REWIND  N8 

STNG0  710 

IF  (M5.LE.  0)  GO  TO  36 

STNG0720 

GO  TO  21 

STNG0730 

32 

GALL  PAGE 

STNG0740 

WR  ITFIN6,  2006)  NUM,  TITLE 

STNG07S0 

X *0 

STNG0760 

3A 

READ  INS, 1000)  CARO 

STN,:0  770 

K * K ♦ 1 

STN';0780 

WR  ITE<N6,2000)  K,CARO 

STNG0790 

IF  (CARO!  n.NE. XXX)  GO  TO  34 

STNG0800 

IF  (M5.GT.0)  GO  TO  38 

STNG0810 

36 

READ  (N8,  1002)  TEST,  NUM,  TITLE 

STNG0820 

IF  ITEST.NE.ENO)  GO  TO  32 

STNG0830 

38 

REWIND  N8 

STNG0840 

RETURN 

STNG0850 

FNP 

STNG0860 

i i 


I 


H-  21 


T 


I 


SUBROUTINE  CARDINS. N6tNX,  CLAS.PCOOEI 

CARDOOIO 

C PGH 

=NXX(NEM).  L.n.G.  VER.l  7-23-73 

FORTRAN  IV  EBCD 

CAR00020 

C TO 

REAC  CARD  IMAGES  FROM  N5.  COPY  ONTO  NX, 

AND  PRINT  ON  N6 

CAR00030 

1000 

FORM  ATI 20A4) 

CAR00040 

lOCl 

FORM  ATI  IX, 19A4,A3) 

CARD0050 

20CO 

FORMATI IX, 15,' .•,20A4) 

CAR00060 

2001 

FORM  ATI  IX,  15,'  1X,19A4,A3» 

CAR00070 

2002 

F0RMATI6X, • INPUT  CARD  IMAGES',/) 

CAR00080 

DIMENSION  KARDI2C),CLASI20)  ,PC00E(20I 

CAR  00090 

TATA  KZIP,K10/'ZIP  '.'IC  '/ 

CARDOIOO 

K1  =1 

CARDOllO 

KCARD  = 2 

CARD0120 

NL  INE  = 2 

CAR  00130 

WRITEIN6, 2002) 

CARn0140 

WRITEINX,  icon  CLAS,  PCODE 

CARDOISO 

WR  ITEIN6,  200 1)  Kl,  CLAS,  KCARD,  PCODE 

CAR  00160 

GO  TO  2 

CAR  00170 

1 

NL  INE  =0 

CAR00180 

WR ITEIN6, 2002) 

CARD0190 

2 

NL  INE  = NL  INE  ♦ 1 

C ARD0200 

KCARD  = KCARD  ♦ 1 

CARC0210 

READ  I N5, 1000)  KARD 

CARD0220 

WRITEINX,  1000)KARO 

CARD0230 

WR ITEIN6, 2000)  KCARD,  KARD 

CAR00240 

IF  IKARDi  1).EO.K2IP.AW>.KARO(2).EO.K10J 

GO  TO  8 

CAB00250 

IF  INL  INE.LT.50)  GO  TO  2 

CARD0260 

CALL  PAGE 

CARD0270 

GO  TO  1 

CARD0280 

8 

FND  FILE  NX 

CAR  DO 290 

REWIND  NX 

CARD0300 

RFTURN 

CARD0310 

FND 

CAP  DO 3 20 

SUBROUTINE  UN lOUE I KA ,KU, I U) 

UN  noolo 

C**PGM 

*NXX.  L.D.G.  9-7-73  FORTRAN 

IV  EBCDIC 

UN  100020 

C FOR 

ITEMS  IN  KAIKU)  IN  INCREASING  OR  DECREASING  ORDER,  OR  WITH 

UN  100030 

C /ILL 

LIKE  ITEMS  ADJACENT,  PUT  A UNIQUE  LIST 

IN  THE  FRONT  OF  KA  AND 

UN  100040 

C RETURN  THE  REDUCED  NUHBEP  TU t ( lU.LE . KU) . 

UNI00050 

C** 

UN  100060 

DIMENSION  KAIKU) ,PAIKU) 

UN  IQ0070 

IFI 1-KU  ) 8,6,4 

UN  100080 

4 

IU«0 

UNI00090 

RETURN 

UNIOOlOO 

6 

IU»1 

UNIOOllO 

RETURN 

UN  I 00 120 

8 

IU-1 

UNIQ0  130 

Kl-KU-l 

> 

UN  100140 

I«1 

UN  100  ISO 

10 

K«KAI  I) 

UNIQ0160 

Il«I^l 

UNI00170 

CO  12  J«I1,KU 

UNIQ0180 

IFIK.EO.KAIJ)  ) GO  TO  12 

UNIQ0190 

IU«IU>1 

UN  100  200 

N-  22 


r 


"1 


K A(  lU  » = KA( J ) 

UN100210 

I=J-1 

UN  100220 

GO  TO  16 

UNIQ0230 

12 

CCNT INUE 

UNIQO240 

RETURN 

UN  1 00 250 

16 

I*I*1 

UN  100260 

IF(  I.LF.Kl)  GO  TO  10 

UNIQ0270 

RETURN 

UNI00280 

C*** 

UN  100290 

C 

UN  100300 

ENTRY  RNIOUE(PA.KU.IU.E) 

UNI00310 

C*** 

UN  100  320 

IFI 1-KU)  28.26.24 

UN  100330 

24 

IU=0 

UN  100340 

RETURN 

UN10n350 

26 

IU=l 

UNI0n360 

P ETUPN 

UN  10  0370 

28 

IU=l 

IINI00380 

K l=KU-l 

UN  100  390 

1=1 

UN  100400 

30 

R=RA(  I ) 

UNI00410 

11=  1*1 

UN  100420 

cr  32  J=I  l.KU 

UN  100430 

IF  f R.LE.IRAIJ )*F  l.AND.R.GE. IRA (J)-E) ) 

GO  TO  32 

UN  I 00 440 

1U=IU+1 

UN  100450 

PA(  lU  »=RA(  J ) 

UN  100460 

I=J-l 

UM  100470 

GO  TO  36 

UNI00480 

32 

RAIJ  ) = R 

UNI00490 

RETURN 

UNI00500 

36 

1 = 1 + 1 

UN  100510 

IFI  I .LF  .K  n GO  TO  3C 

UN  100520 

RETURN 

UN  100530 

END 

UN  100540 

SUBROUTINE  SETUP  AUPR I NT  ) 

C PGM=NXX.  L-0. GREGORY.  VER . 8 9-15-73  FORTRAN 

C TO  SET  UP  INITIAL  POSITIONS  AND  PLANNED  ROUTES 
CALLEC  PY  MAIN  AND  ZIP  CARD  AS  FOLLOWS 
CIP  8 1 P SET 

C 
C 


IV.  FBCO. 


UP  NAV.INIT.PKG/PRINT  P*l, 

NOTES.  IN  CSETA,  RFD  & BLU  FOLLOW  PATTERN  AS  BELOW.  / BLU 

I.NPG  « NO. OF  RED  GROUPS  /NBG 

C Z.KRGNII)  * ITH  GROUP  NO.,E.G.  218000D  IFROM  TABLE  Ol/XBGN 

C a.KRGKIIl  » ITH  GROUP  KOOE.E.G.  1118  (FROM  TABLE  2)/KBGX 

C WHICH  RELATES  RED  GROUP  11  TO  18  / 

C 4.PCC(  8f6.KI  > KTH.  TABLE  OF  RED  GROUP  CENTERS  VS  TIME  / BGC 

C 5.NRU(II  ■ NO. OF  RED  UNITS  IN  ITH  GROUP  ♦ 100*  STARTING  LINE/NBU 

C B.KRUKI  «J)  > RED  UNIT  KODE.E.G.  2010100.  83A10000.  ETC  /KBUK 

C T.RA.RB.PC.RD  « RED  CFN TER . VEC TOR . START .RENOE 2V0US  POINTS.  /BA. BP. 
CM* 

COMMON/CEVICE/  N 1 .N2.N3.N4.N5t N6.N7.N8 .N9 . NIO .N1 1 . N12 
COMMON/ INOUT/NLINE.NPAGF. DUMA  1 391 . NC0DE(19I 
l.ICUMR(72l.  NFLAG.  NFLAG2 


N-  23 


SFTAOO  10 
SETA0020 
SFT A0030 
SFTAOOAO 
ZSFTAOOSO 
SFTA0060 
SFT A0070 
SFT AOORO 
SFTA0090 
SFT AOlOO 
SFT AOl 10 
SFTA0120 
SFT A0130 
SFT  AO  140 
SFTAO  150 
SFT A0160 
SET A0170 
SFT AO10O 


•oiMWyiiltJUMu. 


CZAZA 


INTFGFR  TITLA 

COr«MnN/CZAZ  A/NCBA,  IDAl,  I0A2 » lOA 3t  JZAR  L «LZA  tHZA 1 1 C A(  16 1 t C A(  161 
1.  TITLA( 15),HEAOA(37l»IFMT 
2«  LAl.l  AAI.MA 1,MAA 1,KA 1( 27t5) tVAl(27«12l 
riMFMSION  BZA<  555) 

FOUIVALFNCF  ( N CB  A «B  ZA  ( 1 ) ) 

DATA  Nr.BtLZfMZ,)  A,MA/  1 1 555  1 12  «27 . 12/ 

CO»<HON/CWnRK/KA2(27)  ♦VA2I27*  12)  «KA3I27)  •VA3l27tl2)t 
1 LA2tMA2t  LA3(MA3  tPWQRKf79A) 

DIMENSION  KWnPK(706) 

FOUIVALFNCF  I KA 2( 1 ) t KM CRK 1 1 ) ) 

CNAVIG 

rOMMON/CNAVIG/  NC^  X t BE  t BF  ,RE  tRF  , 

1 NBG*BA,BB.BC.RDtKBGN(18)tKBGKI18) tBGCI  8 *6 » 18 ) »NRU( 18 ) * 

2 NRG,RA,RB«RC«RD,KRGN( 18) ,KRGK( 18) tRCC I 8«6f 18 ) *NRUt 18) » 

3 TTIMF.NUMX, 

4 KPLfKRUK (4t 50),PRFL(4,50) »BXyZ(50»7) »NAMBU(50  »2 ) t BV ( 50  * 8) » 

5 KRUtKRUKIAt  50)  «RPFLU«50)  tBXYZ  ( 50t  7)  « NAMRU  ( 50  «2)«RV(50,8) 
CATA  RAO/C. 0174533/, PI /3. 14159/ 

DIMENSION  VA(12) 

NAMFLIST/NAMAI/NP&,KBGN,KBGK 
NAMFLIST/NAMA2/NRG,KRGN,KRGK 
NAMFL IST/NAMA3/KPU,NBU 
NAMEL  IST/NAMA4/KPU,NRU 
NAMFL I ST/NAMA5/KPU,BREL 
NAMEL  I ST/NAM A6/KPU,RR EL 

2005  FORMAT! IHO, 22HERP0R  IN  SETUPA  AT  E 1« ,F8. 2 ,3X, • I D« • ,2  1 10 ) 

2006  FORMAT! IHO,  *CHECK  FOR  MISSING  TA8LE,  t0«*«2I10) 

2C08  F0RMAT!/6X,*  AFTER  INITIAL  SETUP*, /6X,»  UNIT  NAME* ,10X , • COOF • , 
1 6X,*TYPE  GRUP  STAT  DELTA  X DEL7A  Y DELTA  Z VALUE*) 
20C9  FORM  AT! /6X, 14, * . * , 2A4, 21 10,21 5,  4F1 0.3) 

C**  ARITHMETIC  FUNCTIONS, 

JUPAK!N,KO,KM)  * MOD!  N/10P*KD,  10**KM) 

HRS!X)  * FLOAT! IFIX! X))  ♦ ( X-FLQATI I F I X ! X) ) ) / 0.6 

C*P 

1 KZARL  * 96  ♦ LA*! 5 ♦ MA ) 

JZARL  * KZARL 

NFLAG2»  0 
NGMAX  « NGMX 
K'UMAX  ■ NUMX 
ID2  » 0 

C**  FINC  TA8LE  OF  TABLES.  TABLE  NQ.«  0 . 

KTRAN  ■ 1 
101  « 000  10000 

3 lY  ■ 1 

4 CALL  RCB011{BZA,LZ,MZtNCB,KZAKL*I01,I02,tY*IXX) 

IF  IIXX.FQ.O)  GO  TO  110,22,52),  KTRAN 

El  • 4.03 

6 MRITElN6,200e)  IDl,  102 

NFLAG2  « NFLAG2  ♦ 1 
GO  TO  I 8,50,70),  KTRAN 
8 STOP 

C**  STORE  TA8LE  NUMBERS  FROM  TABLE  N0.>  0 • 

10  NBG  ■ 0 


SET A0190 
SET AO  200 
SETA0210 
SETAd220 
SFTA0230 
SETA0240 
SFTA0250 
SFTA0260 
SFTA0270 
SETA0280 
SETA0290 
SFTA0300 
SFTA0310 
SETA0320 
SFTA0330 
SETA0340 
SETA0350 
SETA0360 
SET  AO  370 
SETA0380 
SETA0390 
SEi A0400 
SETA0410 
SETA0420 
SET A0430 
SETA0440 
SET A0450 
SET A0460 
SFTA0470 
SFT404R0 
SET A0490 
SET  AO 500 
SET A0510 
SFTAOSZO 
SETA0530 
SFTA0540 
SET40550 
SFT 40560 


SET  40570 
SET40580 
SETA0590 
SETA0600 
SETA0610 
SET40620 
SETA0630 
SET A0640 
SFTA0650 
SETA0660 
SETA0670 
SETA0680 
SETA0690 
SETA0700 
SETA0710 
SETA0720 
SETA07  30 


NRG  = 0 
m u i*itLAi 
CO  J>ltMAl 
K s (VAK  If  J ) ♦ .001) 

IF  (K.LE.O.OR.  K.EQ.ICO.OR.  K.EQ.200.0R.  K.GE.300)  GO  TO  lA 

IF  (K.GT.200)  GO  TO  12 

NPG  * NBG  ♦ 1 

KBCNINBG)  « K • 10000 

GO  TO  14 

12  NRG  = NRG  ♦ 1 

KRGNINPG)  » K ♦ 10000 
14  COMTINUF 

C**  SORT  TABLE  NUMBERS 

tall  KOROER (KBGNfNBG) 

CALL  KOROER  (KRGNfNPG) 

C**  start  BLU  SFT  up.  GFT  BIU  GROUP  CENTERS  FROM  TABLE  NO.-IOOOOOO 
20  KTRAN  * 2 

101  » ICOOOOO 

GO  TO  3 

22  PA  * ICA(4I 

RB  * ICAIB) 

PC  » irA(12) 

60  > ICA(16) 

PE  * CAI  12) 

PF  * CAI  16) 

24  on  28  I*lfLAl 

KA2(I)  > MODIKAlIIfS) flCO)  * 10000  ♦ 101 
rn  26  J^lfMAl 
?6  VA2(  If  J)  * VAII  If  J) 

VA2(If2)  * VA2llf2)  / 6.080 
VA2( If  3)  > HRS(VA2( If3)  ) 
on  28  J=  4f  lOf  3 

VA2(IfJ^2l  > VA2(IfJ-»^2)  t 6.080 

28  VA2(IfJ)  « HRS(VA2IIfJ)  ) 

IA2  = LAI 

MA2  » MAI 

C**  CYCLF  THRU  BLU  GROUP  CENTERS  IN  TABLE  NO. -1000000 
32  IXX  - C 

KK  - C . 

CO  38  KG*  If NBG 
KGN  « KBGNIKG) 
ro  36  KH«lfLA2 

IF  (KGN.NF.KA2(KH) ) GO  TO  36 
KK  * KK  ♦ 1 

KBGN(KK)  * KGN 

KRGKIKK)  « KAlIKHfS) 

DO  34  KJ- If  12 
34  VA(KJ)  - VA2lKHfKJ) 

CALL  NAVITI BGC fNGMAX t KK t VA t tCA tCAt I XY f N6) 

IXX  - IXX  ♦ IXY 
36  CONT INUE 

38  CONTINUE 

NBG  « KK 

IF  ( IXX.NE.O)  NFLAG2  ■ NELAG2  ♦ 1 
C««  START  RED  SET  UP.  GET  RED  GROUP  CENTERS  FROM  TABLE  N0.-2000000 


N-  25 


SFTA0740 
SETA0750 
SFTA0760 
SFTA0770 
SFTA0780 
SETA0790 
SETAOeOO 
SETA0810 
SETA0820 
SETA0830 
SFT A0B40 
SFTA08S0 
SETA0860 
SFTA0870 
SFT A0880 
SFT A0P90 
SETAOPOO 
SFTA0910 
SETA0920 
SET40930 
SFT A0940 
SET A09S0 
SET A0960 
SFT  A0970 
SETAf)980 
SETA0990 
SET AlOOO 

sftaioio 

SET A1020 
SFTA1930 
SFTA1040 
SFTAIOSO 
SFTA1060 
SFTA1070 
SFTAIORO 
SFT  A1090 
SFTAl 100 
SFTM  110 
SFTA1120 
SFT A1 130 
SFT A1140 
SET  AU50 
SETM160 
SFTAl 170 
SFTA1180 
SFTAl  190 
SFTA1200 
SFTA1210 
SFTA1220 
SETA1230 
SFTA1240 
SETA1250 
SETA1260 
SETA1270 
SFTAl2e0 


5C  KTRAN  * 3 

IDl  » 2000CC0 

GO  TO  3 

52  PA  « !CA(A) 

RP  » ICA(8I 

RC  » ICA<12I 

RO  « ICA(16) 

RE  > CAC  12) 

RF  » CAI  16) 

54  DO  58  1*1, LAI 

KA3(I)  * MODIKA  1(T,5),100)  * 10000  ♦ 101 
ro  56  J*l,MAl 
56  VA3(  I,  J)  « VAK  I,J) 

VA3(I,2)  * VA3<I,2)  / 6.080 
VA3(  1,3)  * HRS(  VA3(  1,3)1 
DO  58  J*  4, 1C, 3 

VA3(I,J«2)  * VA3(I,J^2)  / 6.080 

58  VA3(I,J)  * HRS(VA3I1,J)  ) 

LA3  * lAl 

MA3  * MAI 

C*4  CYCLE  THRU  RED  GROUP  CENTERS  IN  TABLE  NO. *2000000 
62  IXX  * C 

KK  * 0 
no  6 8 KG*  1,  NRG 
KGN  * KRGNIKG) 

DO  66  KH*1,LA3 

IF  (KGN.NE.KA3(KH) ) GO  TO  66 
KK  * KK  ♦ 1 
KRGN(KK)  * KGN 
KRGK(KK)  * KA1IKH,5) 

DO  64  KJ*1,12 
64  VA(KJ)  * VA3fKH,KJ) 

CALL  NAVIT(R6C,NGMAX,KK«VA,ICA,CA,IXY,N6I 
IXX  * IXX  ♦ IXY 
66  CONTINUF 

68  CONTINUF 

NRG  * KK 

IF  (IXX.NF.O)  NFLAG2  « NFLA62  * 1 
C**  PRINT  OPTION 

70  IF  ( IPRINT.LE.O)  GO  TO  78 

IF  (NBG.LE.O)  GO  TO  74 

WR1TE(N6,NAMA1) 

NLINE  « NLINE  ♦ 6 

IF  I tPRINT.LE.l)  GO  TO  74 

DO  72  I«1,NB6 

CALL  «mAT3(2,  tCA,BGC,  8,  6«NGMAX,  8,  6,  ItNLINF, 
1 60H60RDERED  TABLE.  BLU  GROUP  CENTERS  VS  TINE 
72  CONTINUE 

74  IF  INRG.LE.O)  60  TO  78 

CALL  PAGE 
MRITEf  N6,NANA2) 

NLINE  - NLINE  ♦ 6 

IF  I IPRINT.LE.I)  60  TO  78 

DO  76  1*1, NRG 

CALL  MMAT3I2«ICA,RGC,  8,  6*NGNAX»  8«  6,  1 •NLINE, 
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76 

CX* 

c 

r 

C 

c 

c 

c 

c** 

c 

r 

c 

c 

c 

c 

c** 

78 

C** 

80 


SI 

82 


84 


99 


I 60HR0RCFRPP 
CONT  INUF 
SET  UP  UNITS 
CnCE  NRUd) 


TAPLE.  RED  GROUP  CENTERS  VS  TIME 


= STATUS 
FOLLOWING 
= DELTA 


KPUKI  1,  J ) 

KBUK( 2, J ) 

KPUKI 3, J ) 

KPUKI  4,  J I 
Arc  THE 
BPELI  1,  J) 

PRFLI 2t J) 

BREl  I 3,  J I 
BRELI4, J) 

PVIJ,  ) 

KSU 

CYCLE  THRU  GROUP 
IF  INBG.LF.O) 
BLU  UNITS 


IN  KBUK  AND  KRUK  IBLU  C RED) 

= 100* J ♦ Kf  WHERE  K«NO. UNITS  IN  GROUP  I 

J«STARTING  LINE  IN  KBUK 
UNIT  KODEtE.G.  lOlOLOO  FOR  JTH  UNIT 
UNIT  TYPE.E.G.  61130000 

BACKWARD  PFF  TO  GROUP  LINE  NO.  IN  KBGN» BGCtKRGNt RGC 


* VALUE 
= alt  L 
= TOTAl 


TO 

X 

Y 

7 

VEL 

NO. 


ALIVE  . 
GROUP  POS 
FOR  BLU. 


1 

TO 


GET  UNIT  POS 
RRELfltJ)  « 
RRELI2tJ)  « 
RRELOtJI  - 
RRELI4*J)  * 
RVIJ*  I 


OF  BLU 
TABLES  6 SET 
GO  TO  100 


UNITS 
UP  UNITS 


DELTA 


VALUE 
ALT  E 


X 

V 

I 

VFL 


FOR  RFC 


KBU  = 0 
ID?  » 0 
lY  = 1 

rn  99  KG=lfNBG 
TDl  = KBGNIKGI 

CALL  RCP011IB7A,LZ»M7,NCBtKZARL*IDl,ID2tIY«IXXt 
IF  I IXX.EQ.O)  GO  TO  84 
FI  = 81.00 

WRITFIN6»2006I  IDlt  102 

NFLAG2  « NFLAG2  ♦ I 
GO  TO  99 

CYCLE  THRU  UNITS  IN  BLU  GROUP  TABLE 

CALL  UNISFTIKAI, VAl»LA,MA*LAl»MAl»NGMAX»KG»NUMAX»NBUtKBU»NAHBUt 
1 KBUK.BRELtBVtlDltl XX) 

IF  I IXX.FO.O ) GO  TO  99 
NFLAG2  = NFLAG2  ♦ I 
CnNT  INUF 


C**  RFC  UNITS 

100  IF  INRG.LE.O)  GO  TO  120 
KRU  = 0 . 

ID2  = 0 
lY  « 1 

rn  116  KG*ltNRG 
101  > KRGNIKG) 

CALL  RCBDllf RZA«L7«MZtNCBfKZARL*IDl «ID2  tl YtlXXl 
IF  I IXX.FO.O)  GO  TO  114 

111  FI  > 111.00 

112  WRITEtN6t2006)  lOlt  102 

NFLAG2  « NFLAG2  ♦ 1 

GO  TO  116 

C**  CYCLE  THRU  UNITS  IN  RED  CROUP  TABLE 
114  CALL  UNISET(KAl«VAl«LAtMA«LAl,MAltNGMAX,KG*NUMAX«KRUfKRU«NAMRU* 
1 KRUKtRRELtRVtlOltlXXl 

IF  I IXX.EQ.O)  GO  TO  116 
NFLAG2  ■ NFLAG2  ♦ 1 
lie  CONTINUE 


SFT A1840 
SETA1850 
SETA1860 
SETA1870 
SETA1880 
SETA1890 
SETA1900 
SFTA1910 
SFTA1920 
SFT61930 
S ft  A 1940 
SFTA1950 
SET41960 
SET A1970 
SFT A1980 
SFTA1990 
SET A2000 
SFTA2010 
SFTA2020 
SETA2030 
SFTA2040 
SFTA2050 
SFTA2060 
SFTA2n70 
SFTA20R0 
SFTA2090 
SFTA2100 
SFT A2110 
SFTA2120 
SFTA2130 
SFTA2140 
SFTA2190 
SFTA2160 
SFTA2170 
SrTA2l80 
SETA2l«0 
SFTA2200 
SFTA2210 
SFTA222n 
SFTA2230 
SFTA2240 
SFTA2290 
SFTA2260 
SFTA2270 
SETA22B0 
SFTA2290 
SFTA2300 
SFT A2310 
SFTA2320 
SFT42330 
SFTA2340 
SFTA2390 
SETA2360 
SFTA2370 
SFTA2i80 
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C**  ChflNGE  VALUES  IN  BREL  TO  DELTA  X*  Yt  Zt  REF  HEADING  AT  T«0 
120  IF  IKPU.LE.OI  GO  TP  124 
DO  122  KU«ltKBU 
KG  « KBUKI 3*KU) 

HEAT  - AINT(BGC(6f5tKGI  ) 

PEAR  « (HEAD  ♦ BRELOtKUn  * RAD 
RG  « BREL(2«KU) 

BREL(l.KU)  - RG  * SIN(RFAR) 

BRFL(2.KU1  « RG  ♦ COSIBEAR) 

122  BRELI 3»KU)  « .0 
C**  PRINT  OPTION 

IF  I IPPINT,LT.2)  GO  TO  124 

CALL  PAGE 

WR  ITE( N6*NAMA3I 

HRITF(N6,2C0e) 

on  1221  J « 1.  KBU 

1221  WRITF(N6,?009)  J* ( NAMBU ( Jt 11 • I« 1 *21 1 ( KBUK (I  « J)  «!•  1 *41  * 

1 (BRFL(  I*J  l*I«  1*4) 

CAP  CHANGE  VALUES  IN  RREL  TO  DELTA  X*  Y.  Z*  REF  HEADING  AT  T«0 
12A  IF  (KRU.LE.O)  GO  TO  128 
CO  126  KU-1*KRU 
KG  » KPUK( 3*KU) 

HEAD  « AINT(RGC (6*5*KG)  ) 

BEAR  « (HEAD  ♦ RRFL(3*KU)I  * RAO 
RG  « RREL  I 2*KU) 

RREL(1*KU)  - RG  * SIN(BEAR) 

RREL(2*KU)  - RG  * COSIBEAR) 

126  RRFL(3*KU)  - .0 
CP*  PRINT  OPTION 

IF  I IPRINT.lt, 2)  GO  TO  128 
CALL  PAGE 
WRITE)  N6*NAMA4) 

WRITF(N6*2008) 
on  1261  J « 1*  KRU 

1261  HR1TE(N6*200S)  J* ( NAMRUI J * I ) * I«1 *2) * I KRUK 1 1 * J) * I - 1 *4) * 

1 (RREL(  I*J)*I-1*4) 

128  IF  (NFLAG2.NE.0)  NFLAG-NFLAG  P 1 

IF  (NBCPNRGPKBUPKRU  .LE.  0)  NFLAG  « NFLAG  ♦ 1 

RETURN 

ENO 


SFTA2390 
SETA2400 
SETA2410 
SETA2420 
SETA2430 
SETA2440 
SFTA2450 
SFTA2460 
SETA2470 
SFTA2480 
SFTA2490 
SETA2500 
SFT A2510 
SFTA2520 
SETA2530 
SETA2540 
SETA2550 
SET A2 560 
SETA2570 
SFTA2580 
SFTA2590 
SFTA2600 
SETA2610 
SETA2620 
SETA2630 
SETA2640 
SETA2650 
SETA2660 
SETA2670 
SETA26B0 
SFT A2690 
SFTA2700 
SFTA2710 
SFTA2720 
SFTA2730 
SFTA2740 
SET A2 750 
SFTA2760 
SETA2770 
SFTA2780 


SUBROUT  INE  NAV I T( GC tNGA *NG t VA»t C A*CA* 1 XX »N6) 

C PGM-NXX.  L.D.G.  VER.3  8-27-73  FORTRAN  IV.  FBCO 

C TO  SET  UP  INITIAL  POSITIONS  AND  PLANNED  ROUTES 
C CALLED  BY*  SETUPA 

DIMENSION  GC(8*6*NGA)«  VA(12)*  ICA(16)t  CA(16) 

DATA  RA0/0.017453J/*PI/3.14199/ 

2000  FORMAT)  1H0*9X*  'ERROR  IN  NAVIGATION  INITI ALIZATICN  PKGV 

1 6X* 'CHECK  TIMES  IN  TABLE  OF  GROUP  CENTERS'/ 

2 6X* 'P0INT>'*(3*'*  riMESP**2FT.3*S  6ROUP>'*I3) 
C*P  SETUP  BORDERED  TABLE  GCt8*6tN6A) 

1 IXX  • 0 

GC( 1* 1*NG)  ■ 806. C 


NV ITOOlO 
NVIT0020 
NV1T0030 
NVIT0040 
NVIT0050 
NVIT0060 
NV1T0070 
NVIT0080 
NVIT0090 
NVITOIOO 
NVITOllO 
NV  (T0120 


N-  28 


r 


rn  4 1=2, t 

NV IT0130 

u 

GC(  1,  l.NGl  = I 

NVIT0140 

GC(  2,  1,NG»=-  10. 

NV IT0150 

CC(  3,  1,\'G  ) = VA(IO) 

NV  tr0160 

rr(4,l,NG)  = VA17I 

NVIT0170 

cr( 5,  1,MG)  = VA(4) 

NV  IT0180 

GC(6,  1,NG  1 = VA( 3) 

NV IT0190 

CC<7,l,NGl  * .25  ♦ VAni 

MV  IT 02 on 

GC(  8,  1,NG)  = 5.0*VA(  3) 

NV  IT0210 

c** 

GETTER 

NVIT0220 

6 

XC  » !rA(4) 

NV  IT0230 

vr  = IfA(8) 

NV IT0240 

"R  * AINT(  VA(  in 

NVIT0250 

•’G  * (VA(  1)-HR  ) ♦ loco. 

NV  IT0260 

c** 

PCI^’T  A.  RELEASE  POINT 

NV  IT 02 70 

X = RG  * SIN(BR*RAD) 

NV  IT02P0 

Y = RG  * case PR*R API 

NV  IT02R0 

GC16,2,MG)  = XC  ♦ X 

MV  I TO  300 

rC(6,  3, MG)  = YC  ♦ V 

NV  IT0310 

rClfc,4,MG)  * VA(2) 

NV  IT0320 

GC(6,6,NG)  = 0.0 

NVIT0330 

XA  * XC  X 

NV  IT0340 

YA  = YC  ♦ Y 

NV IT0350 

7A  = VA(2) 

»JV  TT0360 

GCl 6, 5, MG)  « VAC  5) 

NV  IT0370 

pniNT  R. 

NVIT03R0 

10 

PR  * A INTC  VAC  5)  ) 

NV IT03R0 

V = CVAC5  )-BR  ) ♦ 1000. 

IT0400 

RG  = V • C VAC  3)- VAC  4)1 

NV  IT0410 

X « RG  ♦ SINCBROPAP) 

MV  IT 04  20 

Y * RG  * CnSCBR^RAP) 

NV  IT0430 

rcc  5, 2, MG)  * XA  - X 

NV  IT0440 

GCC  5, 3,NG»  = YA  - Y 

NV  IT0450 

CCC5,4,NG)  « VAC6) 

NVI TP460 

GCC  5,5,MC.)  * VACS) 

NV IT  04 70 

GCC  5, 6, MG)  ■ CVAC  2)-VAC  61  ) / IVAC  3) -VAC4)  ) 

NV  I T0480 

C** 

PCINT  Al. 

NV  IT04O0 

12 

RG  * V * CGCC 7, 1,MG)-GCI6,1,NG)  ) 

NV  IT0  500 

GCC7,2,NG)  = XA  ♦ RG4S1NC BR«RAO) 

NV  IT0510 

Gr.C7,3,NG)  * YA  ♦ BG*rO  SC  BR*R  AOl 

NV  IT0S20 

Gf.C7,4,NG)  ■ ZA 

NVIT0530 

XR  » CAC 121 

NV  IT0S40 

YR  ■ CAC 16) 

NV  IT0550 

ZR  = ZA 

NV  IT0560 

14 

ANG  = ATAN2C  1 XR-GC 1 7, ZtNGl) , 1 YR-GC C 7, 3, NG) 1 1 

NV IT0S70 

IF  CANG.LT..O)  ANG  « ANG  * 2.*  PI 

NV IT05P0 

PANG  > AINTC ANG/RAO) 

NV  IT05O0 

GCC7,5,NG)  - DANG  ♦ V/1000. 

NV IT0600 

rCC7,6fNG)  - 0.0 

NV  IT0610 

C** 

POINT  A2. 

NV  IT0620 

18 

RG  • V * CGCC6,1,NG)  • GCC7,1,NG)  1 

NV  IT0630 

GCI8*2fNGI  - GCC7«2«NG)  ♦ RG*SI Nf DANG*RAO) 

NV  IT0640 

GCIB,3,NG)  « GCC7,3,NG)  ♦ RG*COS(OANG*RAO) 

NV  IT0650 

GCC  8,4,NG)  • ZA 

NVIT0660 

GCC8,5,NG)  « GCC7,5,NG) 

NV  IT0670 

I '1 


i : 

I 


f i 
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GC  ( P#6»N5  I » 0.  C 
PCTNT  C. 

BR  * AINT(VA(8n 
V » (VA(8)-RR»  • 1000. 
RG  » V • (VA|A)-VA(7)  I 


SI  N(BR*RAO) 
C0S(BR*RA0I 


(VA(4)-VA(7)  I 


GC(At2«MGI  * GC(5t2*NGI  - RG  * SIN(BR*RAO) 

GCIA,3.NG»  = GC(5#3,NG)  - RG  ♦ C0S(BR*RA0I 

Gr.(4,A,NG)  = VA(P) 

GC(4,  5,NG»  » VA(  B» 

GC(4,6,NG»  = (VA(  6)-VA(9))  / (VA(4)-VA(7M 
POINT  0, 

PR  » AINT(VA(  1 1)  ) 

V * IVA(IU-BR)  * ICOO. 

P G = V * ( V4(  7)-VA  (I  Cl  I 

GC(3.2,NG)  « GC(4,2«NGI  - RG  * SIN(BR«RAOI 

GCC3.3.NGI  « GC(4,3,NG)  - RG  • COSIBRARAO) 

GC( 3t4»NGI  > VA( 12) 
rCI3.5,NG)  « VA(ll) 

GC(3,6,NG)  « (VA(9)-VA(12))/(VAI7)'VA(10)  I 
POINT  F. 

XS  » CA(4) 

VS  * r.Ai  ei 
ZS  = GC(  3,4,NG) 

ANG  * ATAN2I  (GC(3»2tNG  »-XS)  f IGCI3,3tNGI-Y: 
IF  IANC.lt. .0)  ANG  « ANG  ♦ 2.*  PI 


» CA(4) 

* r.Ai  ei 

= GC(  3,4,NG) 

* ATAN2I  (GC(3»2,NG)-XS)f  IGCI3,3#NGI-YS) 
fANC.LT..O)  ANG  - ANG  ♦ 2.*  PI 


GO  TO  28 


1 


GANG  > AINTI  ANG/RAD) 

RG  > V * ( GCI 3t 1«NG)-GC (2tltNG)  I 
XE  • GC(3»2,NG)  - RG  ♦ SIN IOANG*R AO  I 
YF  « GCI3«3tNG)  - RG  * COS(  OANG*RAO) 

GCI  2»2,NG)  « XF 
fCI 2»3,NGI  * YF 
GCI  ?»4,NG)  » GC  I3,4,NGI 
GCI2»5.NC)  * DANG  ♦ V/IOOO. 

GCI 2. 6, NG I * 0.0 
IXX  * 0 
on  28  1-2,7 

IF  I GCI  141, ItNGI.GT.GCII ,1 ,NG)  I GO  TO  28 
IXX  - IXX  4 1 

HR  ITFIN6,  2000)  I,  GCII,1,NG),  GC 1 1 4 1 , 1 ,NG) , NG 

CON  T IN  UF 

RETURN 

FNO 


SUBROUTINE  UN  I SE T IKA 1 , VAl *L A,NA, L A1 1 N A1 ,NGMAX ,K6 *NU PAX , NPU, K RU, 
1 NAMRU,KRUK,nREL*BVtIDl,I XX) 

C**  PGM-NXX.  L.n.G.  VFR .3.  7-7-73  FORTRAN  IV  EBCO 

C MODS.  N6-121.  VER.4  11-25-74 

CP*  TO  SET  UP  UNITS  FROM  GROUP  TABLES  l.l«1.2t2.1t  ETC. 

C CALLED  BY  SFTUPA.  AT  SN  • 78. 

CIMENSION  KAllLAfMA),  VA1ILA,MAI,  NBUINCMAX)*  KBUK|4,NUMAX I 
DIMENSION  BRELI4,NUMAX),NANBU( NUMAX,2) •BVlNUMAX,8) 

2005  FORMATIIHO*  'ERROR  IN  UNISET  AT  El«' ,F8.2,3X,' ID-' ,2110) 

2006  FORMATIIHO,  'NUMBER  OF  UNITS  EXCEEDS  NUMAX  ■',14,',  AT  ID-', 1 10) 


NV  IT  0680 
NV  IT0690 
NVIT0700 
NVIT0710 
NV IT0720 
NVTT0730 
NVIT0740 
NVIT0750 
NV  IT0760 
NV  IT0770 
NVIT0780 
NVl T0790 
NVI T0800 
VV  IT0810 
NV  IT0820 
NVIT0830 
NVIT0840 
NVIT0850 
NV IT0860 
NV  ITOR70 
NV  IT0880 
NV IT0890 
NV IT0900 
NV  ITOOlO 
NVIT0920 
NV  IT0930 
NV  IT0Q40 
NVIT0950 
NV  IT0960 
NV  IT0970 
NV IT0980 
NV IT  0990 
NV IT  1000 
NV  ITlOlO 
NV  IT  10  20 
NV IT  1030 
NV IT1040 
VVIT1050 
NV IT1060 
NV  IT  1070 
NVIT  1080 
NV  IT  1090 


USFTOOlO 
US  FT  0020 
US  FT  0030 
USET0040 
USET0050 
US ET0060 
US  FT  00  70 
USET0080 
USET0090 
USETOlOO 
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■ 

■ 

i 

1 

! 

i 

r 

i 

■ 

20C7 

FORMMC  IHO,  • IN  group  TABLE«*»IlO.*t 

EXCLUDED  LINE  NC.«' , 191 

US ETOllO 

1 

IP2  = 0 

USET0120 

i 

IXX  = C 

USET0130 

N6  * 6 

USET0190 

KUG  * C 

USFT0150 

Pn  98  L*l,l  Al 

US ET0160 

KQ  « VAKL.n  * .001 

USET0170 

IF  (KAKl  ,5).r,T.C.  AND  .KO.GT.O)  GO 

TO  86 

USFT0180 

85 

FI  = 85.00 

USFT0190 

WR ITFIN6, 2007)  lOl,  L 

US  ET0200 

rn  TO  98 

USFT0210 

86 

IF  ( KPU.LT.NUMAX  ) GO  TO  88 

USET0220 

87 

IXX  * 1 

USET0230 

* 

WR ITF(N6, 2006)  NUMAX,  IDl 

USET0290 

j: 

RFTURN 

USFT0250 

88 

KPU  * KBU  ♦ 1 

USET0260 

KUG  » KUG  ♦ 1 

USFT0270 

IF  (KUG.FO.n  MRUIKG)  ■ 100  * KBU 

USFT0280 

i ' 

KRUKd.KRU)  * 101  ♦ ICO  ♦ KUG 

US FT02O0 

KRUK(2tK8U)  * ICOOO  • KA1<L,5) 

USET0300 

KPUKI3,K8U)  * KG 

USFT0310 

KBUKl9,KRU)  * 1 

US  ET0320 

1 ■ 

NAMBUIKBUt  1)  « KA1(L»2) 

USFT0330 

MAMBUIKBU,2)  * KAl(Lt3) 

USFT0  390 

no  90  LL»1.9 

USET0350 

' 

90 

PRFl  (ILfKBU)  * VAKLtLL) 

USET036n 

no  9 1 LL  = 1.8 

USET0370 

91 

PVIKPU.LL  ) » VA1(L.IL>9) 

USET0380 

! 

PV(KBU,3)  3 RVIKBUtB)  / 6.080 

USET0390 

( 

PV(KRUtR)  * 8V(KBUt8l  / 6.080 

USET0900 

1 

C** 

take  cape  of  quantity. GT.  1 

US  FT  0910 

i 

92 

IF  (KC.lF.n  GO  TO  98 

US FT0970 

IF  ( KRU.LT. NUMAX)  GO  TO  99 

USFT093n 

rn  TO  87 

USFT0990 

99 

KO  = KO  - 1 

US  FT0950 

K = KBU 

USET0960 

KBU  « KBU  ♦ 1 

US  ET09  70 

KUG  * KUG  ♦ 1 

USFT0980 

l.i 

KBUKlltKBU)  « KRUKIltK)  *■  100 

USET0990 

KBUK(2tKBU)  « KBUK(2tK) 

USET0500 

i 

KBUK(3fKBU)  « KG 

USET0510 

1 ' 

KPUK(9,KBU)  * 1 

USFT0520 

li 

NAMPU(KRUfl)  « NAMBU(Ktl) 

US  ET0530 

NAMPU(KRUt2)  « NAMRUtKt2) 

US  FT  0 590 

no  96  LL-1.9 

USFT0550 

\ 

96 

RRFLILLtKBU)  « BPELILLtK) 

USET0560 

no  97  LL-1.8 

USET0570 

97 

PVIKPU.LL  ) « RVIK.LL) 

USFT0580 

- 

ro  TO  92 

USET0590 

98 

CON  T IN  UF 

US ET 0600 

NBUIKG)  « NBUIKG)  ♦ KUG 

US ET 0610 

RETURN 

USET0620 

END 

USET0630 
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r 

% 

h inJl 

SUBROUTINE  SETUPS « IPR I NTJ  SETBOOlO 
C PGP»NXX.  L.D. GREGORY.  10-1-73  FORTRAN  IV  EBCD  SFTB0020 
C TO  SET  UP  PLATFORMS  VS  SYSTEMS  FOR  CURRENT  PROBLEM  SETB0030 


C CALLEC  BY  MAIN  ANO  ZIP  CARD  AS  FOLLOWS  SETPOOAO 

CIP  8 2 P SET  UP  SYSTEM  AND  SUBSYSTEMS  SETB0050 

C**  SETflOOBO 

COMMON/CEVICE/  N 1 .N 2 tN 3 tNAtNS t N6 t N7* NB »N9f NlOf Nil » N12  SETR0070 


I j 


CCMMON/INOUT/NL INE .NPAGE #DUMA 1 351 t NCOOEI 19) 


SETBOOBO 


I 


t 


ltlDUMB(72)t  NFLAGt  NFLAG2 

CZAZA 

INTEGER  TITLA 

COMMON /CZAZA/NC BA, IDA  It  10A2 , IDA3, JZ ARL ,LZ A,MZA, I C A 1 16  I ,C A( 161 

1,  TITLAI  15),HEADA(  37),  IFMT 

2,  LAltL A Al, MAI, MAAltKA It  27,5) ,VA 1(27,12) 

DIMENSION  eZAt  555) 

EQUIVALENCE  ( NCSA, BZ At  1 ) ) 

DATA  NCB,LZ,MZ,LA,MA/  1,555,12,27,12/ 

CNAVIG 

COMMON /CN AV  IG/  NGMX, BE , BF ,RE , RF , 

1 NBC,  BA,  BB,BC,BD,KBGN(  18)  ,KBCK(  18)  ,BGC(  8 ,6  ,18  ) ,NBU(  18  ) , 

2 NRG,RA,RB,RC,RD,KRGN(  18)  ,KRGK(18)  ,RGC(  8 ,6 ,1 8 ) ,NRU ( 18  ) , 

3 TTIMEtNUMX, 

A KBUtKBUKt  A, 50 ), BREL (6,50) ,B XYZ (50 ,7 ) ,NAMBU (SO  ,2 ) , BV ( 50, 8 ) , 

5 KRU,KRUK(6,50),RPEL(6,50),RXYZ(50,7) ,NAMRU(50  ,2) ,RV(50,8) 

C0MM0N/CW0RK/LA2,MA2,LAA2,MAA2,  KA2(3,15) ,VA2(12,15), 

1 LA3,MA3,LAA3,MAAi,  VA3(68,15),  KA5(  547) 

CPLAT  VS  SYSTEMS  (SUBSYSTEMS) 

COMMnN/CPLAT/NBP,NBPMX,NBSS,NBSSMX,NBSPP( 15) ,NBPMS(45) , 

1 NAMBPt  2, 15),KBPT( 15) ,NABSS(2,45) ,KBST(45) ,KBPXS (45, 15) , 

2 BRX1(12,15), 

3 NRP,NRPMX,NRSS,NRSSMX,NRSPP(15) ,NRPWS(45), 

4 MAMRPt  2,  15),KRPT( 15),NARSS(2,45),KRST(45) ,KRPXS (45 , 15 ) , 

5 RPX1(12,15) 

C*«« 

C NAMBP  * NAMEtPLU  PLATFORMS  / NAMRP  « NAME, RED  PLATFORMS 

C K8PT  » KOOEStBLU  PLAT  TYPE, 61 1 30000/  KRPT  • ETC. 

C NABSS  * NAMEtBLU  SUB  SYSTEMS  / ETC.  « 

C KPST  » KODFStBLU  SS  TYPES,  65140000/  ■ 

C KBPXS  * KOOEStBLU  PLAT  VS  SS  ♦ QTY  / - 

C ■ E.G.  65140C02  / 

C NBP  « NO.OF  BLU  PLAT  IN  KBPT  / 

C NBSS  « NO.OF  BLU  SUBSYS  IN  KBST  / • 

C N8SPP  « NO. SYS  PER  PLATFORM 

C EPXl  « BLU  PLAT  EXTENT(-l)  DATA  / RPXl  ■ RED  PLAT  EXTFNT(-l) 

DIMENSION  KBPTTt  7),  KRPTTt  3) 

CATA  NBPTTtKBPTT/  7,61100000,61200000,61300000,61500000, 

1 62100003, 631COOOO, 63200000/ 

DATA  NRPTT,KRPTT/  3,61300000,82100003,83300000/ 

CATA  BLANK, LANK/*  *,*  •/ 

2005  FORMATt 1H0,22HERR0R  IN  SETUPS  AT  E1-,F8.2 ,3X,* ID1«* ,21 10 ) 

2006  FORMATIIHO,  'NO.  BLU  PLATF0RMS>*,I4, * , EXCEEDS  STCRAGE«* , 14) 

2007  FORMAT!  IHO,  *N0  TABLE  FOUND  FOR  tOl,  I02«*,2I10) 

2008  FORMATIIHO,  'NO.  BLU  SYSTEMS-*, 14,*,  EXCEEDS  STORAGE- *,  14 ) 

2010  FORMAT  (6X,  *BLU  PLATFORM  DATA*) 

2012  F0RMAT(6X, *PLATFORM  TVPE-*,110/I9X,6G14.6I  ) 


SETB0090 
SETBOlOO 
SETBOllO 
SFTfl0120 
SETB0130 
SETR0140 
SETB0150 
SETB0160 
SETB0170 
SETB0180 
SETB0190 
SETB0200 
SETR0210 
SETB0220 
SETB0230 
SFTR0240 
SETB0250 
SETB0250 
SETB0270 
SFTB0280 
SETR0290 
SETR0300 
SETR0310 
SETB0320 
SETR0330 
5ETB0340 
SETB0350 
SET  BO 360 
SETB0370 
SFTP0380 
SFTB039Q 
SETB0400 
SETB0410 
SFTR0420 
SETR0430 
SETB0440 
SETB0450 
SETB0460 
SFTB0470 
SETB0480 
SFTR0490 
SFTB0500 
SETB0510 
SETB0520 
SFTB0530 
SETB0540 
SETB0550 
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2206 

rnPMATllHO,  'NO.  REP  PLATF0RMS«*,I4,* , EXCEEDS  STORAGE-* t I4l 

SETB0560 

22C8 

FnPMATdHO,  'NO.  RED  SYSTEMS-*#  I 4,  • , EXCEEDS  STDR  AGE- * # 1 4J 

SETR0570 

22in 

F0RMAT(6Xf *REO  PIATFORM  DATA*! 

SETB05R0 

LAA5  « 727 

SETBOSOO 

LAA3  * 48 

SETB0600 

MAA’  * 15 

SETB0610 

LAA2  » 12 

SETB0620 

MAA2  - 15 

SET  80630 

NPPMX  * 15 

SETB0640 

NPSSMX*  45 

SFT80650 

A'RPMX  - 15 

SFTR0660 

A'R^SMX*  45 

SFTR0670 

K2ARL  * qt  ♦ LA*( 5 ♦ MAI 

SETfl06R0 

JZARL  - K7ARL 

SFTR06q0 

NFl  AG2=  0 

SFT80700 

FIND  DISTINCT  BLU  PLATFORMS  (UNIT!  COOES 

SETB0710 

1 

IF  (KRU.LF.OI  GO  TO  201 

SETR0720 

r.o  1?  1 = 1, KBu 

SET  80730 

12 

KA5(  1 »=  KBUKl?, I » 

SFTBn740 

CALL  K0RDER(KA5,KBU) 

5FTR0750 

fall  UN  I0UF(KA5,KBU,NBP) 

SFTR0760 

IF  (NPP.LF.NBPMX)  GO  TO  14 

SFTon770 

WRITE(N6,2006)  NBP,  NBPMX 

SFTR0780 

NFLAG2  - NFLAG2  ♦ 1 

SFTR07«0 

NBP  = NPPMX 

SFTR0800 

14 

DO  16  1=1, NBP 

SETBOB 10 

16 

KBPTl  I I = KA5(  I J 

SETB0820 

C ♦♦♦ 

ZFRO  OUT  WORKING  ARRAYS 

SETR0830 

CO  22  J»l, NBPMX 

SFT0OR4O 

Cn  IR  1-1,2 

SETR0850 

NAMBPI I, J I = LANK 

SFTR0860 

18 

KA2(I,J)  = LANK 

SFTR0870 

KA2(3,J)  - 0 

SETR0880 

cn  20  1=1,12 

SFTRORPO 

VA21  1,JI  = .0 

SETROROO 

20 

VA3(  I. J ) = .0 

SETROPIO 

ro  22  1=12, LAA3 

SET80<J20 

22 

VA3( I, J»  = .0 

SETR0q30 

€♦♦♦ 

CYCLE  THRU  CATALOG  PLATFORM  TABLES 

SFTB0940 

lY  « 3 

setrorso 

rn  44  KC-1,NBPTT 

SFTR0q60 

101  -IKRPTTIKC)  / 100001  ♦ 10000 

SFTB0q70 

cn  62  KX*l,5 

SETROqBO 

102  « -KX 

SFTROOPO 

CALL  RCB011IBZA,LZ,MZ,NCB,KZARL,I01, ID2,1Y,IXX) 

setbiooo 

IF  < IXX.EO.OI  GO  TO  26 

SETRlOlO 

KOUTA  - MODIKBPTTIKC 1,10000) 

SFTRin20 

rO  24  1-1,4 

SFTBl 030 

KOUT  - M00<K0UTA,10) 

SFT  81040 

IF  IKX.FO.KOUT)  GO  TO  42 

SFTRl  050 

24 

KOUTA  - KOUTA  / 10 

SET  81060 

WR1TE(N6, 20C7I  101,102 

SFTR1070 

GO  TO  42 

SFTRIORO 

c*** 

CYCLE  TMJU  PLATFORM  TYPES  IN  KBPT  IFROM  ENGAGEMENT  STRUCTURE) 

SFTRIOOO 

26 

cn  40  KT-1,NBP 

SETBllOO 
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K » KBPT(KT)  / lOOCO 

SET  B1 110 

Pn  28 

SETB1120 

IF  (K.EO.K&K  J,5n  GO  TO  30 

SETB1130 

2fl 

CONT  INUF 

SETBri60 

GO  TO  60 

SETB1150 

c*** 

FrUNO,  PLATFORM  TVPF  IN  CATALOG 

SFT81160 

30 

JT  » J 

SET81170 

IF  (KX.GF.2)  GO  TO  36 

SFTB1180 

c*** 

transfer  PLATFORM  NAME,  TYPF,  ANO  DATA 

SETB1190 

32 

KA2(  l,KT)  * KAl(JT,2) 

SETB1200 

KA2(2,KTI  * KAl(JT,3) 

SFTni210 

KA2<3,KT)  * KBPT(KT) 

SFTB1220 

NAMBPI  1,KTI  = KA2(  1,KT) 

SETB1230 

NAMBPI  2,KTI  » KA2(  2,KT) 

SFTB1260 

rn  36  J*l, 12 

SFTR1250 

3^ 

VA?(J,KT)  * VAlUTtJ) 

SETB1260 

GO  TO  60 

SETB1270 

36 

KTEST  « lOOOO  * K 

SFTfll280 

CO  37  J«l,NBP 

SETB1290 

IF  (KTEST.FQ.KA2( 3,J)  ) GO  TO  371 

SFTR1300 

37 

CONT INUE 

SFTB1310 

GO  TO  60 

SFTB1320 

37  1 

JA  * 12*(KX-2I 

SETB1330 

00  38  J*l,12 

SETB1360 

38 

VA3(JA4J,KT»  = VAl(JT,Jl 

SETR1350 

60 

CONTINUE 

SETfll360 

A2 

CONT  INUF 

SETP1370 

66 

CONT  INUF 

SET  B1380 

C*** 

BUILD  SYSTEM  LIST  I UNIQUE) 

SETB139n 

50 

LAS  * C 

SFTRUOO 

CO  52  J»1,N8P 

SETR1610 

CO  52  I»1,LAA3 

SFTB1620 

A s VA3I  I,J  I 

SFTB1630 

IF  I A,LE..001)  go  to  52 

SETB1460 

IF  ( MODI  INT((A*.006)«>100.),  lOOl.LT.l) 

GO  TO  52 

SFTR1650 

LAS  - LAS  ♦ 1 

SFTR1660 

KASILAS)  * <A  ♦ .006) 

SETR1670 

52 

CONT  INUE 

SETP1680 

CALL  KORDER  (KA  5,  LA  5) 

SET R1 690 

CALL  IN  IQUE  (KA«,LA5,K) 

SETP1500 

NBSS  « K 

SFT  P1510 

IF  INBSS.LF.NBSSMX)  GO  TO  56 

SFTR1520 

WRITE(N6,2008)  NBSS,  NBSSMX 

SFTfll530 

NFLAG2  » NFLAG2  ♦ 1 

SFTB1560 

NBSS  > NBSSMX 

SFTP1550 

56 

CO  56  I«1,NBSS 

SFTB1560 

56 

KBSTI 1 1 - 10000*KA5CI ) 

SETB1570 

c««« 

PUILC  SYSTEMS  VS  PLATFORMS  MATRIX  KBPXS 

SFTR1580 

00  60  l«l,NBP 

SETB1590 

60 

NBSPPI  I ) ■ 0 

SETB1600 

CO  66  1»1,NRSS 

SETB1610 

NABSSI  1,  I ) « LANK 

SFTB1620 

NABSSI  2* I ) • LANK 

SETB1630 

NBPHSI  I ) - 0 

SETB1660 

I 


np  66  J=l,NBP 
KRPXS( I, J ) = 0 
rn  6<»  K = 1,L4A3 
A = VA3(K ,J  » 

I^  ( ft.LF. .00 1 ) rn  Tn  64 
I = INT(A  ♦ .COA»*10000 
IF  IL.NE.KSTI  GO  TO  64 
KL  = ^'nn(  INTI  ( A>.004)*IC0.  ) , 100) 

IF  (K.GT.36)  GO  TO  62 
KoPXSIIfJ)  = KST  ♦ MIN0(KL,99) 

A'RPVISI  I ) = NHPWSI I ) ♦ I 
NBSPPIJ  ) = NRSPPIJ)  ♦ I 
GO  TO  64 

KRPXS(ItJ)  =KBPXS(I,J)  ♦ 100*M1NO(KL  ,99) 
r.nM  iNUF 
rONT  INUF 

TPANSFFR  CXTFNT(-l)  PATA 
rn  76  I=1,LAA2 
CP  76  J=l,)'AA2 
HPX  11  I,  J ) = VA2(  I,  J ) 

PRINT  OPTION 

IF  ( IPRINT,LT.2 ) GO  TO  78 
TALL  PAGF 
WR  1TF(N6, 20 10) 
rn  77  1=1, NBP 

WRITFI N6, 2012)  K BPT ( I ) , (B PXl ( J , I ) , J= 1 , 12 ) 
CnNTINUF 

PROCESS  RFD  PLATFORM  DATA 
FIND  DISTINCT  RED  PLATFORMS  (UNIT)  CODES 
IF  (KRU.LF.O)  GO  TO  401 
CO  212  1=1, KRU 
KA5( I ) = KRUKI 2, 1 ) 

CALL  KnR0FR(KA5,KRU) 

CAIL  UNI0UF(KA5,KRU,NRP) 

IF  (NRP.LE.NRPMX)  go  TO  214 
WR  ITFI N6,  2206)  NPP,  NRPMX 
NFLAG7  = NFLAG2  ♦ 1 
NRP  = NRPMX 
CO  216  1=1, NRP 
KRPTI  I ) = K A5(  I ) 

7ER0  OUT  WORKING  ARRAYS 
rn  222  J=l, NRPMX 
CO  218  1=1,2 
NAMRPI  I,  J ) = LANK 
KA2(  1,  J ) = LANK 

KA2(3,J)  » 0 

nr  220  1=1,12 
VA2(I,J)  = .0 
VA3(  1, J ) « .0 
CP  222  I»13,LAA3 
VA3(I,J)  « .0 

CYCLF  THRU  CATALOG  PLATFORM  TABLES 
lY  * 3 

no  244  KC»l,NRPTT 

101  *(KRPTT(KC)  / 10000)  ♦ lOOOO 


N-  35 


SFTR1660 
SFTB1670 
SETR1680 
SFTB1690 
SFTRl 700 
SETR1710 
SFTR1720 
SFTR17  30 
SFTR1740 
SFTB1750 
SETB1760 
SFTP1770 
SFTR1780 
SFTR17qn 
SETR1800 
SFTB1810 
SETai820 
SFTB1830 
SETR1R40 
SFTBlflSO 
SFTBia60 
SFTRl R70 
SFTni880 
SFT  Riaqn 
SFTR1900 
SFTRiq  1,0 
SFTR1P20 
SFTpiq?0 
STTBIPAO 
SET  Rl 050 
SFTR1960 
SFTR1<370 
SCTP1980 
SFTR19O0 
SETB2000 
SPTR20n 
SFTB2020 
SFTR2030 
SrTR2040 
SFTR2050 
SFTR2060 
SFTB207O 
SFTR?nR0 
SFT82090 
SFT "2  I 00 
SFTP2110 
SFTR2120 
SFTR2nO 
SFTR2140 
SFTB2150 
SETB2160 
SFTR2170 
SFTR7180 
SFTR2190 
SFT  «2200 


I 


m 262  KX=  1, 5 

SFTfl22l0 

IC2  = -KX 

SFTB2220 

CALL  RCBDI l(BZA,L2tMZtNCB  tKZARLtI01«ID2tlYt I XXi 

SETB2230 

IF  ( IXX.EQ.O)  GP  TP  226 

SFTB2260 

KOUTA  = MOniKRPTTIKC) tlOOOOJ 

SETB2250 

nn  226  1=  1,6 

SETB2260 

KPUT  = MnniKOUTA,  10) 

SFTR2270 

IF  (KX.FO.KOUT)  go  to  262 

SFTB22B0 

KOUTA  = KOUTA  / 10 

SETfl22H0 

WR  ITE( N6, 2007)  101,  102 

SFTR2300 

GO  TO  262 

SETB2310 

z*** 

CYCLF  THRU  PLATFORM  TYPES  IN  KRPT  (FROM  ENGAGEMENT  STRUCTURE) 

SETR2320 

226 

00  260  KT=1,NRP 

SFTB2330 

K = KRPT(KT)  / lOOOO 

SFTP2360 

CO  228  J = 1,LA1 

SETB2350 

IF  (K.EO.KAK  J,5))  GO  TO  230 

SFTB2360 

228 

CONT  INUE 

SFTB2370 

GO  TO  260 

SFTB2380 

FOUND,  PLATFORM  TYPE  IN  CATALOG 

SETR2390 

23C 

JT  = J 

SFTB2600 

IF  (KX.GF.2)  GO  TO  236 

SETB2610 

c*** 

TRANSFER  PLATFORM  NAME,  TYPE,  ANO  DATA 

SETR2620 

232 

KA2(  l,KT)  = KAl(JT,2) 

SFTR2630 

KA2(  2,KT)  = KAK  JT,3) 

SETB2660 

KA2( 3,KT ) * KRPT(KT) 

SETB2650 

NAMRP(  1,KT  ) = KA2( l,KT) 

SFTR2660 

NAMRPI  2,KT)  = KA2(2,KTI 

SETe2670 

CO  236  J=l,  12 

SFTR2680 

23A 

VA2(J,KT)  = VAl(JT,J) 

SFTB26Q0 

GO  TO  260 

SETR2500 

236 

KTEST  = 10000  ♦ K 

SETB2510 

CO  237  J=1,NRP 

SETfl2520 

IF  (KTEST  .FO.KA2(3,J)  ) GO  TO  2371 

SFTB2530 

237 

CONT  INUE 

SFTB2560 

GO  TO  260 

SETB2550 

2371 

JA  * 12*(KX-2) 

SFTB2560 

DO  238  J»l, 12 

SETR2570 

238 

VA3(JA*J,KT)  = VA1(JT,J) 

SFTB25B0 

260 

CONT  INUF. 

SETB2590 

262 

COM  T IN  UE 

SFTP2600 

266 

CONT  INUE 

SETR2610 

C*6* 

BUILD  SYSTEM  LIST  (UNIQUE) 

SETB2620 

250 

IA5  « C 

SETB2630 

00  252  J-1,NRP 

SFTB2660 

CO  252  I«1,LAA3 

SETB?650 

A > VA3(I,J) 

SFTB2660 

IF  ( A.LE..001)  GO  TO  252 

SETB2670 

IF  ( M00(  1NT(  (A*.006)*100.),  lOOl.LT.l)  GO  TO  252 

SETB26B0 

LAS  « LAS  ♦ 1 

SET  B2690 

KA5(LA5)  > ( A ♦ .006) 

SETR2700 

252 

CONTINUE 

SFTB2710 

GALL  KOROER(KA5,LA5f 

SFTB2720 

CALL  UNtOUE(KA5,LA5*K) 

SFTB2730 

NRSS  - K 

SFTB2760 

IF  (NRSS.LE.NRSSMXI  GO  TO  256 

SETB2750 
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WK  ITEI  K6,  ?20e)  NRSS,  NRSSMX 

SETR2760 

NFLAG2  * NELAG2  ♦ 1 

SETR2770 

NRSS  * NPSSMX 

SET«2780 

25A 

Cr  256  1=1, NRSS 

SFTR2790 

25< 

KRSTI  I ) = l0n00*KA5( I ) 

SFTfi2800 

RUUD  SYSTEMS  VS  PLATFORMS  MATRIX  KRPXS 

SETR2810 

nr  260  1=1, NRP 

SETR2R20 

26C 

NPSPPI  I)  = C 

SETn28  30 

no  266  I«l,NRSS 

SFTR2RA0 

NARSSI  1,1)*  lank 

SETR2850 

NAP  SSI  2,  I ) = LANK 

SETe2860 

NRPWSI  I ) * 0 

SETR2870 

KST  * KP  STI  I ) 

SETe2880 

nr  266  J*l,NRP 

SETR2890 

KRPXSI 1, J ) » 0 

SFTR2900 

Cn  26A  K=l,LAA3 

SFTR2P10 

A = VA3(K,J) 

SFTP2920 

IF  I A. L E. .001)  GO  TO  26A 

SETR2930 

L = INTIA  4 .OOA)*10000 

SETR2RA0 

IF  (L.NE.KST)  GO  TO  26A 

SETR2950 

KL  = MOni  INTI (A4.00A>*100.),  100) 

SETR2960 

IE  (K.GT.36)  go  to  262 

SETR297f) 

KRPXS(I,J)  * KST  ♦ MIN0(KL,99) 

SETR2980 

NPPWSI I ) » NRPWSI 1)41 

SETR29O0 

NRSPPIJ)  » NRSPPIJ)  4 1 

SETR3000 

GO  TO  26A 

SFT«30  n 

26  2 

KRPXSI  I, J)  * KRPXS(I,JI  4 lOO*MINOIKL,99) 

SFTBTOZO 

26A 

CONTINUE 

SFTB3030 

266 

CONT  INUF 

SFTR3nA0 

r*** 

TRANSFER  EXTENTl-1)  DATA 

SET83050 

27A 

CO  276  I=l,LAA2 

SErR3060 

CO  276  J=1,MAA2 

SFTP30  70 

276 

RPX  11  I,  J ) « VA2I  I,J) 

SFTR3080 

c*** 

PR INT  OPTION 

SFTR30Q0 

IF  I IPRINT.lt. 2)  GO  TO  278 

SFTR310r) 

CALL  PAGE 

SFTR31 m 

WRITEIN6,2210) 

SCT0312O 

CO  277  1=1, NRP 

SFTR313n 

277 

WRITEtN6,2C12)  KRPT 1 1 ) , IRPXl IJ, 1)  , J*1 , 12 1 

SFTR31A0 

278 

continue’ 

SFTR3150 

AOl 

RETURN 

SETR3160 

FNO 

SFTR317n 

SUPPOUTINE  SETUPCt 1PR1NT» 

C PGM*MXX(NFM) . L.O.G.  VER.2  10-22-73  FORTRAN  IV  ERGO 

C TO  SET  UP  SYSTEMS  DATA  FOR  CURRENT  PROBLEM  FOR  SYSTEMS  IN  SFTUPB 
C SETS  UPfRLU  l.ASMS«7800  2.TRAJ«4110 

C 

C tREC  l.ASMS*S800  2.TRAJ-3110  3. SSMS«9600 

C CALLED  RY  MAIN  AND  ZIP  CARO  AS  FOLLOWS 

CIP  8 ’ P SET  UP  SYSTEM  DATA 

C*** 

COMMON/CEVICE/  N 1 tN2 1 N3t N4*N5* N6» N7 1 N8 *N9 1 NIO t Nt 1 * N12 


SETconio 

SFTC0020 

SETC0030 

SETroOAO 

SETC0050 

SETC0060 

SETC0070 

SETC0080 

SETC0090 

SETCOlOO 
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COMMON /INOUT/NL  INE ,NPAGF ,OUMA ( 3 5) t NC00E<19| 
lfICUM8J72),  NFLAGf  NFLAG2 

CZAZA 

INTEGER  TITLA 

rOMMON/CZ AZ A/NCRA, tOAI«  IOA2» lOA 3t JZARL tLZA t MZ A « f C A ( 16  I fCA(16l 
It  TITLAI  15) fHEADAI 37) f IFMT 
2t  LAltL AAltMA  ItMAA  ltKAl(27»5) tVAl(27,12) 

DIMENSION  BZA(  555) 

EQUIVALENCE  (NCRAtBZAIl)) 

PATA  NCR.LZtMZtLAtMA/  1 ♦ 555 , 12 ,2 7, 1 ?/ 

CNAVIG 

COMMON/CNAVIG/  NGMXtPEtBF.REtRF  , 

1 NBGtBA,BB.BC«ROfKBGN(18ltKBGK(18) fBGCI  8 t6 tl8  ) tNBU ( 18 ) . 

2 NPG,RA,RB,RC,R0,KRGK( 18)tKRGK( 18) tRGC(  8t6 t 18 ) tNRUI IB ) t 

3 TTIMFtNUMX, 

A KBUtKPUK(A,50),BREUA,50)tBXYZI50t7)  t NAMBU  ( 50  t2 ) t BV(  50  t8  ) i 

5 KRUfKRUKI  At  50)  «RRELUt50)  tRXYZ(50t7)  t MAMRU 1 50  t2  1 1 RV ( 50  1 8) 

CPI  AT  VS  SYSTEMS  (SUBSYSTEMS) 

C0MMnN/CPLAT/NBPtNBPMXtNBSStNBSSMX,NBSPPIl5l tNBPMSCA5)t 

1 NAMPPI  2t  15)tKBPT(  1 5)  t NAB  SS  (2  tA5)  tKBST(A5)  ,KBPXS  IA5tl5)  t 

2 PPXl(l2tl5)t 

3 NRPtNRPMXtNRSStNRSSMXtNRSPPI 15) tNRPMS(A5) t 

A NAMRPI 2t l5)tKRPT( 1 5 1 tNAR SS( 2 1 A5I , KRST ( A5) tXRPXS (A5 1 15) t 

5 RPXl(12tl5) 

CMSLSYS  16  2 i 6 6 2A  50 

COMMON /C MSI SY/  NMSL t NMSL MX t NBSSMt NBASM t NRSSM tNR AS M t LAT MS L t LTP A Jt 

1 NAMMSLI 2t  16) tKMSLTYI 16) t 

2 PATMSK  2At  16)t  TTRAJ(50tl6) 

CWCPK 

rOMMON/rwORK / 


1 

LWl 

tMWltLAWltMAMlt 

KMl!27t5) t 

VMl(27tl2)t 

2 

LW2 

tMW2tLAW2tMAW2t 

KW2!27t5)t 

VW2!27tl2)  t 

3 

LW3 

tMW3tLAW3tMAW3t 

KW3(27t5)t 

VW3(27tl2) t 

DATA 

plank  tl  ANK/  * 

* t * */ 

CFOPMATS 

2006  FORMAT!  IHOt ‘NO. OF  SSM-»A  SM«*  *1  At  * t EXCEEDS  STORAGE-*  1 1 6) 

2007  FORMAT! IHOt ‘NO  TABLE  FOUND  FOR  iOlt  I02«*#  2110) 

20C8  FORMAT! IHOt *N0  LINE  FOUND  IN  TABLE  IDl#  I D2« • t I9 t * t * t I ^ t 
1 't  FOR  MISSILE  TYPE«*tI9) 

2009  FORMAT! IHOt 'NO  LINE  FOUND  IN  TABLE  IDlt  I D2« • 1 1 9 1 * t * 1 1 A t 
1 *,  FOR  MISSILE  TYPE**tI9t*f  TRAJ  TYPE»*#!9) 

2010  FORMAT! IHOt 'ERROR  IN  TABLE  IDl,  ID2«« tt9t * t * tl At 
1 't  FOR  TRAJ«*,I9) 

2011  FORMAT! IHOt 'AT  END  OF  SETUPCt  CUM  NO.  SETUP  ERRORS-NFL AG- • , ! 5 ) 
3020  FnPMAT!6Xt*SSMS  L ASMS*/ 

1 RXt'NO.BLU  SSM  TYPES«*tlAt*t  NO.BLU  ASM  TYPES-*tIA/ 

2 8Xt*N0.RE0  SSM  TYPES-* tl At *t  NO.RED  ASM  TYPES-*tlA) 

3022  FORMATf/lXt I6t*.*t2AAtt9t*  MISSILE  DATA*) 

3023  FORMAT!/lXt t6t • .*»2AAtI9t»  TEMP  TRAJ  DATA*) 

302A  FORMAT!  8XtlCGl2.5) 

CFORMATS 

KZARL  - 96  ♦ LA*!5  ♦ MA ) 

JZARL  * KZARL 
NFLAG2>  0 
C***  INITIALIZE 


SETCOllO 

SETC0120 

SETC0130 

SETCOIAO 

SETC0150 

SETC0160 

SETC0170 

SETC0180 

SETr.0190 

SETC0200 

SETC0210 

SETC0220 

SFTr.0230 

SETC02A0 

SETC0250 

SFTC0260 

SETC0270 

SETC0280 

SETC0290 

SETC0300 

SETC0310 

SETC0320 

SFTr.0330 

SFTC03A0 

SFTC0350 

SFTr0360 

SFTC0370 

SFTC03B0 

SETC0390 

SFTCOAOO 

SETCOAIO 

setcoazo 

SFTC0A30 

SETCOAAO 

SFTC0A50 

S^TCOABO 

SETC0A70 

SFTCOABO 

SFTCOAOO 

SETCnSOO 

SFTr.0510 

SETCnSZO 

SETC0530 

setcosao 

SFTC0550 

SFTC0560 

SFTC0570 

SFTC0580 

SFTC0590 

SFTC0600 

SETC0610 

SFTC0620 

SETC0630 

SFTC06A0 

SETC0650 


N-  38 


itii/.  ' 


200 

NMSLMX  = 16 

SETC0660 

LATMSL  = 2A 

SFTC0670 

LTPAJ  * 50 

SETC06fl0 

»'MSL  * 0 

SFTCrt6‘)0 

NBSSM  X 0 

SFTCOTOO 

^I3^  SM  X 0 

SFTC0710 

NRSSM  X 0 

SETC0720 

NRASM  X 0 

SETC0730 

ro  203  J=1,NMSLMX 

SFTC0740 

nn  201  1=1,2 

SFTC0750 

2Cl 

^AMMSL  ( I,  J ) = LANK 

SETC0760 

KMSLTYIJ  ) X 0 

SETC0770 

cn  2C2  l=l,LATMSL 

SFTC0780 

PATMSLII.JI  * .0 

SFTCOTOO 

202 

TTPAJ  (I,J)  X .C 

SFTC0800 

DO  203  I=LATMSL, LTPAJ 

SFTCOfllO 

203 

TTR AJ  ( I , J ) X .0 

SFTC0820 

KFX  X n 

SFTrORBO 

IF  (KPU.LF.O)  GO  TO  3 00 

SETC0840 

r*** 

SFT  IIP  PLIJ.  KFX  X 1 

SFTC0850 

20« 

KFX  X 1 

SFTC0860 

LWl  X 0 

SFTCOBTO 

LW2  * 0 

SFTr,0880 

LW3  = C 

SETC0890 

C**CALL  RAW  TRAJ 

SETC0900 

lY  X 3 

SETCnoiO 

KTRAN  X 1 

SETf:09  20 

TOl  X AllOOOOC 

SFTr0930 

102  = -1 

SETC0940 

RFAO  Fppw  niSK  11 

SETC0950 

2C6 

CALL  P:33  11(5ZA,LZ,MZtNCB,KZARL,101fl02  ) 

SFTC0960 

IF  (IXX.EO.O)  GO  TO  1210,218,228,236),  KTRAN 

SFTC0970 

WRITF(N6,2007)  ID1,1D2 

SFTr0980 

NFLAG2  * NFLAG2  ♦ 1 

SETC0990 

CO  TO  (216,224,232,300),  KTRAN 

SFTCIOOO 

C**TR 

ANSFFP  PAW  TRAJ  TO  CWOPK  (1) 

SFTClOlO 

21C 

CO  213  1*1, LAI 

SFTC1020 

cn  212  J = 1,MA1 

SFTC1030 

212 

VWK  I,J).  X VAK  I,  J) 

SFTC1040 

213 

KWK  1,5)  X KAK  1,5) 

SFTC 1050 

LWl  « LAI 

SFTC1060 

MWl  * MAI 

SFTC1070 

C**tALL  RIU  MSL  (-2) 

SFTC1080 

2H 

KTRAN  X 2 

SFTC1090 

101  * 78100000 

SETCl 100 

1D2  « -2 

SFTClllO 

GO  TO  206 

SFTC 1120 

CAATR 

ANSFER  MSL  1-2)  TO  CWORK  (2) 

SETC1130 

218 

DO  222  1-1, LAI 

SFTC 1140 

rn  220  J-1,MA1 

SETCl 150 

22C 

VW2(  I,  J)  * VAK  I , J) 

SFTC1160 

222 

KW2(I,5)  « KAK  1,5) 

SFTC1170 

LM2  « LAI 

SFTC1180 

MW 2 « MAI 

SETCl  190 

C*ACALL  BLU  MSL  1-31 

SETC1200 

224  KTRAN  * 3 

IDl  = 78100000 
ID2  * -3 

C**  GO  TO  206  USF  THIS  INSTEAD  OF  232  IF  EXTENT  -3  IS  ADDED 

GO  TO  232 

C44TRANSFER  MSI  (-31  TO  GWORK  I3> 

228  rn  230  1=  1, LAI 

KW3(  1,5)  = KAll  1,5) 

Cn  230  J=1,MA1 
23C  VH3(  I,J>  = VAll  I, J) 

LW?  = LAI 
MW3  = MAI 

C**CALL  RLU  MSL  1-1) 

232  KTRAN  = 4 

ini  = 78100000 
102  = -1 
GO  TO  206 

PROCESS  BLU  MSL  NOk  IN  CZAZA  AND  CMORK 
C**TFST  IF  ALL  NEEDED  TABLES  WERE  FOUND.  INCLUDE  LH3  IF  ADDED 
236  IF  (LW1*LW2  .EO.O)  GO  TO  300 
C*ACYCLF  THRU  SVSTFMS  IN  KBST 
on  280  KT«l,N8SS 
KTYPF  = KBSTIKT) 

NFLAG3  * 0 

C**CYCLE  THRU  7810  (-1)  IN  CZAZA 
KTFST  = KTYPF  / 10000 
DO  240  1=1, LAI 

IF  (KTEST.E0.KA1(I,5)  I GO  TO  242 
240  CONTINUE 
GO  TO  280 

C44TEST  IF  STORAGE, EXCEEDED 

242  KL  = I 

NMSL  ■ NMSL  ♦ 1 

IF  INMSL.LE.NMSLMX)  GO  TO  243 
WRITE(N6,2006I  NMSL,  NMSLMX 
NFLAG2  « NFLAG2  ♦ 1 
GO  TO  400 

C**SET  COUNTERS  C NAME 

243  KTEST  « KTYPE  / 1000000 

IF  (KTEST,F0.76)  NBSSH  » NBSSM  ♦ 1 
IF  (KTEST. EO. 78)  NBASM  « NBASM  ♦ 1 
CO  244  1 = 1,2 

NABSS(I,KT)  « KA1(KL,I41) 

244  NAMMSLd  ,NMSL)  «NABSS(I,KT) 

C44ST0RE  TYPE  t DATA  FROM  EXTENT  (-1) 

KMSLTYINMSL)  « KTYPE 
CO  246  1-1,6 

246  CATMSLI I«15,NMSL  ) « VA1(KL,I) 

C*4ST0RE  DATA  FROM  EXTENT  (-2)  IN  CWORK  (2) 

250  KTEST  » KTYPE  / 10000 
00  252  1=1, LW2 

IF  (KTEST.E0.KM2(1 ,5)  ) GO  TO  254 


252  CONT  INUE 

NFLAG3  • NFLAG3  ♦ I 
101  • 76100000 


SETC1210 

SETC1220 

SETC1230 

SFTC1240 

SETC1250 

SETC1260 

SETC1270 

SFTC12B0 

SFTC12<)0 

SETC1300 

SETC1310 

SFTC1320 

SETC1330 

SETC1340 

SETC1350 

SETCn60 

SFTC1370 

SFTC1380 

SETC1390 

SFTC1400 

SFTC1410 

SETC1420 

SFTC1430 

SETC1440 


SETC1450 

SFTC1450 

SFTC1470 

SETC1480 

SETC1490 

SETC1500 


SFTC1510 
SFTC1520 
SETC1530 
SETC1540 
SFTC1550 
SFTC1560 
SFTC1570 
SETC1580 
SETC1590 
SFTC1600 
SETC1610 
SFTC1620 
SETC1530 
SETC1640 
SFTC1650 
SETCINNO 
SETC1670 
SFTC1680 
SETC1690 
SETC1700 
S ETC  17 10 
SFTG1720 
SFTC1730 
SETC1740 
SETCl 750 


102  * -2 

SFTCi760 

WR  ITE(N6f 200e>  101,  102,  KTVPE 

SETC1770 

Pn  TO  260 

SETC1780 

25A 

KL  = I 

SETC1790 

CO  256  1=1, MH2 

SFTCIROO 

256 

PA  TMSLl  1 ,NMSL)  *VW2(KL,I) 

SETC1810  1- 

C**STCPF  DATA  FROM  EXTENT  (-3)  IN  CWORK  (31 

(IF  ANY) 

SETC1820  i 

26C 

IF  (LW3.FQ.0.nR.LATMSL.LT.36»  GO  TO  270 

SETC1830  ; 

KTEST  = KTYPE  / 10000 

SETC1840 

on  262  1=1, LW3 

SFTri850 

IF  (KTEST.EQ  .KW3(  1 ,51  ) GO  TO  264 

SFTC1860 

262 

CONTINUE 

SETC1870  i 

NFLAGB  = NFLAG3  ♦ 1 

SFTr,1880 

ini  = 781CC0C0 

SETClflOO 

102  * -3 

S ETC  1900  1 

WR1TE(N6, 20081  101,  102,  KTYPE 

SFTC1<»10 

GO  TO  270 

SETC1920  ,1 

26A 

KL  = I 

SETC1930 

CO  266  1 = 1, MW3 

SFTC1940  ! 

266 

DATMSL(H-24,NMSL)  = VW3IKL,n 

S FTC  19 50 

PROCESS  TEMP  TRAJ  £ STORE  IN  TTRAJ 

SETC1960 

27C 

101  = 411000C0 

SETr.1970  * 

102  = -1 

SFTC1980  i 

KTPTY  * MODI  lFlX(r)ATMSL(2,NMSL)  ♦100.«-.4)  , 

ino) 

SETC1990 

CO  276  K*l,2 

SFTC2000 

KTFST  = KTRTY*100  ♦ K 

SETC2010 

no  272  1=1, LMl 

* 

S ETC  20 20  f 

IF  (KTEST.EO.KWK  I,5»  ) GO  TO  274 

SFTC2n30 

272 

CONTINUE 

SFTC2040  ; 

IF  (<.F0.2)  GO  TO  278 

s FT  020  50  ;; 

NFLAG3  * NFLAG3  ♦ 1 

SFTC2060  i 

n 1 * <1100000 

SFTr?0  70  1 

IR2  » -1 

SFTC2080 

WRITE(N6, 200SI  IDl , 1 02 ,KTYPE , KTEST 

SETC2090 

CO  TO  278 

SFTC2100 

276 

KL  * I 

SFTr2110 

CALL  STTRAJ(K,KTEST,KL,VM1,LA,MA,! XX,TTRAJ(1 ,NMSLl ,LTRAJ 1 

SETC2120  |; 

IF  ( IXX.EQ.OI  GO  TO  276 

SFTC.2130  ' 

NFLAG3  « NFLAG3  ♦ 1 

SFTC2140  ! 

WRITE(N6, 2010)  101, 102,  KTEST 

SFTC2150 

276 

CONTINUE 

SFTC2160 

c**« 

TEST  FOR  ERROR  FREE  SETUP.  PUT  POINTER  IN 

SYSTEM  LIST. 

SETC2170 

278 

IF  (NFLAG3.LE.0)  KPSTIKTI  ■ KBST(KT)  ♦ 

NMSL 

SETC2180 

28C 

CONTINUE 

SETC2190  ' 

€♦♦♦ 

SETC2200 

c*** 

***  ***  *** 

SFTC2210 

C66ASET  UP  RED 

SETC2220 

300 

IF  (KRU.LE.O)  GO  TO  3S1 

SETC2230  , 

304 

KFX  • 2 

SETC2240 

LMl  - 0 

SFTC2250 

LM2  = 0 

SFTC2260 

LM3  « 0 

SETC2270 

lY  - 3 

SETC2280 

KTRAN  - 1 

SETC2290 

101  ■ 51100000  StTC2300 


I 


102  * -1 

30«  CALI  RCB^ll(87A,L^fMZ,NCBtKZARL«I01tI02fIVtI  XX) 

IF  (IXX.FO.O)  GO  TO  (310«318t328t336) » KTRAN 
WR!TEIN6t2C07)  101,102 
NFLAG2  = NFLAG2  ♦ 1 
GO  TO  I 316, 32A,332,A0C) , KTRAN 
31C  CD  313  1=1, LAI 
rn  312  J=l,MAl 

312  VWIII, J)  = VAK  I,JI 

313  KWK  I,  51  = XAK  1,5) 

LWl  * LAI 

)*W1  * MAI 
316  KTPAN  « 2 

IDl  * 98100000 

102  = -2 

GO  TO  306 

CAATRANSFER  MSL  (-2)  TO  CWORK  12) 

318  on  322  1=1, LAI 
ro  320  J=1,MA1 
32C  VW2(  I,J  ) = VAK  t,  J) 

322  KW2(  1,5)  = KAK  1,5) 

LW2  = LAI 
MW2  = MAI 

CAACALL  RFP  MSI  (-3) 

324  KTRAN  * 3 

TO)  s 98100000 

102  = -3 

C**  GO  TO  306  USE  THIS  INSTEAD  OF  332  IF  EXTENT  -3  IS  ACDEC 

GO  TO  332 

CAATRANSFEB  MSL  (-3)  TO  CMORK  (3) 

328  00  330  1=1, LAI 

KW3(  1,5)  = KAK  I,  5) 

DO  330  J-1,MA1 
33C  VW3(  I,J)  = VAK  I,J) 

LH3  = LA  1 
MW3  * MA 1 

CAACALL  red  MSL  (-1) 

332  KTRAN  » 4 

IDl  * 9810000C 
102  = -1 
GO  TO  306 

CAAA  PROCESS  RED  MSL  NOW  IN  CZAZA  AND  CWORK 

C*4TEST  IF  ALL  NEEDED  TABLES  WERE  FOUND.  INCLUDE  LW3  IF  ADDED 
336  IF  (LW1ALW2  .EQ.O)  GO  TO  400 

CAACVCLE  THRU  SYSTEMS  IN  KRST 
DO  380  KT«1,NRSS 
KTYPE  ■ KRSTIKT) 

NFLAG3  - 0 

CAACYCLE  THRU  9810  f-l)  IN  CZAZA 
KTEST  • KTYPE  / 10000 
DO  340  1*1, LAI 

IF  IKTEST.E0.KAin,5)  ) GO  TO  342 
34 C CONT  INUE 

GO  TO  380 

caatest  if  storage  exceeded 


SETC2310 
SETC2320 
SFTC2330 
SFTC2340 
SETC2i50 
SETC2360 
SETC2370 
SETC2380 
SETC2390 
SETC2400 
SETC2410 
SETC2420 
SETC2430 
SETC2440 
SFTC2450 
SFTC2460 
SFTC2470 
SFTC2480 
SETC2490 
SETC2500 
SETC2510 
SFTr.25Z0 
SFTC2530 
SFTC2540 
SFTC2550 
SFTr2560 
SFTC2570 
S FT 02 5 80 
SFTC2590 
SFTC26nO 
SETC26  10 
SFTC2620 
SETr2630 
SETC2640 
SETC2650 
SFTC2660 
SETC2670 
SFTC2680 
SFTC2690 
SFTC270n 
SETC2710 
SFTC2720 
SFTC2730 
SETC2740 
SETC2750 
SFTr2760 
SFTC2770 
SETC2T80 
SFTC2  790 
SFTC2800 
SETC2810 
SETC2820 
SETC2830 
SETC2840 
SETC2850 


I 


I 


I 


I 


' 


N-  42 


3^2 

KL  = I 

SETC2860 

NMSl  = NMSL  ♦ 1 

SETC2870 

IF  (NMSl .LE.NMSLMX)  GO  TO  343 

SETC2880 

WP ITF(N6, 2006)  NMSLt  NMSLMX 

SETC2890 

NFLAG2  = NFLAG2  ♦ 1 

SFTC2900 

GO  TO  400 

SFTC2910 

C**SFT 

COUNTFPS  £ NAME 

SFTC2920 

343 

KTEST  * KTYPE  / ICCOOOO 

SETC2930 

IF  (KTEST. EO. 96)  NR SSM  * NRSSM  ♦ 1 

SETC2940 

IF  (KTEST. E0.98)  NRASM  « NRASM  ♦ 1 

SETC2950 

DO  344  1*1,2 

SETC2960 

NARSS(  1,KT)  » KAKKLtl^l) 

SFTC2970 

344 

NAMMSL(I,NMSL)  * NARSS(I,KT) 

SFTC2‘J80 

C**STnRF  TYPF  £ DATA  FROM  EXTENT  <-l» 

SFTC2P90 

KMSITYINMSI ) * KTYPE 

SETC3000 

no  346  1*1,6 

SETC3010 

346 

PATMSL ( (♦15,NMSL)  * VA1(KL,1) 

SETC3020 

C4AST0RE  DATA  FROM  EXTENT  (-2)  IN  CMORK  (21 

SETC3030 

3^0 

KTEST  » KTYPE  / 10000 

SFTC3040 

nn  352  1*1, LW? 

SFTC3n50 

IF  (KTFST.E0.KW2(  1 ,5)  ) GO  TO  354 

SETC3060 

352 

CONTINUF 

SFTC3070 

NFIAG3  * NFLAG3  ♦ 1 

SETC3080 

ini  * 98100000 

SFTC3n90 

IC2  = -2 

SFTC3100 

WR1TE( N6, 2008)  101,  102,  KTYPE 

SFTC3110 

GO  TO  360 

SFTC3120 

354 

KL  = I 

SETC3130 

no  356  I*1,MW2 

SETC3140 

356 

DATMSL ( 1,NMSL ) * VW2(KLfI) 

SFTC3150 

C*4ST0RF  DATA  FROM  EXTENT  (-31  IN  CMORK  (31  (IF  ANYI 

SFTC3160 

36C 

IF  (LW3.FQ.0.0R. LATMSL.lt. 361  GO  TO  370 

SFTC3170 

KTEST  « KTYPE  / 10000 

SETr3180 

no  362  1*1, LW3 

srTC3i9n 

IF  (KTEST.E0.KW3(  1 ,5)  ) GO  TO  364 

SETC3200 

362 

rONT INUE 

SFTr3210 

MFLAG3  = NFLAG3  ♦ 1 

SFTC3220 

IDl  * 98100000 

SFTC3230 

1 02  * -3 

SFTC3240 

WR ITF( N6, 2008)  101,  102,  KTYPE 

SFTC3250 

GO  TO  370 

SETC3260 

364 

KL  » I 

SFTr,3270 

DO  366  I«1,MW3 

SFTC3280 

366 

TATMSLI 1+24, NMSL)  - VW3(KL,II 

SrTC32‘>0 

c*** 

PROCESS  TEMP  TRAJ  £ STORE  IN  TTRAJ 

SFTC3300 

370 

101  « 5110C0C0 

SFTr3310 

102  » -1 

SFTC3320 

KTRTY  ■ M00( IFIXIOATMSL (2*NMSL)*100«^.4) ,100) 

SFTC3330 

00  376  K»l,2 

SETC3340 

KTEST  ■ KTRTY4100  ♦ K 

SETC3350 

00  3 72  I«1,LM1 

SETC3360 

IF  (KTEST.EQ.KMl  (1  ,51  1 SO  70  374 

SETC3370 

372 

CONTINUE 

SETC3380 

IF  (K.EQ.2)  GO  TO  378 

SETC3390 

NFLAG3  « NFLAG3  ♦ 1 

SETC3400 

WR  1TE(N6, 20091  10  1 , 1 02 1 KTYPE  , KTE  ST 

SETC3410 

ro  TO  378 

SETC3420 

37A 

KL  * I 

SETC3430 

CALL  STTRAJ(K,KTFST,KLtVWl,LA,MA#l XX, 

TTRAJ!1,NMSL),LTRAJI 

SFTC3440 

IF  ( IXX.FO.O)  GO  TO  376 

SETC3450 

NFLAG3  * NFLAG3  ♦ 1 

SETC3460 

WRITE(N6, 20101  101,102,  KTEST 

SFTC3470 

37C 

CONTINUF 

SETC3480 

c*** 

TEST  FOR  ERROR  FREE  SETUP.  PUT  POINTER 

IN 

SYSTEM  LIST. 

SFTC3490 

378 

IF  (NFLAG3.LE.0)  KRSTIKT)  » KRST(KT) 

♦ 

NMSL 

SETC3500 

380 

CONTINUE 

SETC3510 

381 

IF  INMSL  .LE.  0)  GO  TO  400 

SETC3520 

C 

UNPACK  DATMSL 

SFTC3530 

00  382  I * 1,  NMSL 

SETC3540 

K = CATMSLI  2, 1 1 ♦ 100.  ♦ .4 

SFTC3550 

CATMSH2,  I)  * K / 100 

SFTC3560 

rATMSL(13,Il  = MOOIK,100) 

SFTC3570 

K = OATMSL ( 3,1 1 ♦ 10.  ♦ .4 

SETC3580 

rATMSL(3, 1 ) = K / 10 

SETC3590 

nATMSL{14,I)  * MOn(K,10) 

SFTC3600 

K = OATMSL  (7, 1 1 ♦ 100.  ♦ .4 

SETC3610 

CATMSLI  7,  1 1 = K / 100 

SETC3620 

OATMSL! 15, I 1 * MOO(K, 1001 

SFTC3630 

OATMSL! 15, 11  * OATMSL! 15,1 1 / 100. 

SETC3640 

382 

rATMSL!6, 11  * 0ATMSL!6,11  / 60. 

SETC3650 

ACJUST  FOR  salvo  SIZE 

SETC3660 

no  386  KT  = 1,  NPSS 

SFTC3670 

K » KBSTIKTl  / 1000000 

SFTC3680 

IF  IK  .NE.  76  .ANO.  K .NE.  781  GO  TO  386 

SFTC.3690 

K = MOOIKBSTIKTl, 1001 

SFTC.3700 

on  384  KE  * 1,  NBP 

SETC3710 

IF  !KBPXS!KT,KF 1 .EO.  01  GO  TO  384 

SETr3720 

LWl  » !KBPXS!KT,KE1  / 100001  ♦ 10000 

SETC3730 

MWl  » KPPXS1KT,KF1  - LWl 

SFTC,3740 

LW2  * MWl  ! 100 

SFTC3750 

MW2  * MWl  - LW2  * too 

SFTC3760 

LM3  * LW2  * MW2 

SETC3770 

IF  !LW2  .EQ.  99  .OR.  LW3  .EQ.  01  GO  TO 

384 

SFTC3780 

MW3  » 0ATMSL!5,K)  ♦ .4 

SETC37O0 

LW3  « LW3  / MWl 

SFTC3800 

KBPXS!KT,KFI  « LWl  4 LW3  ♦ 100  ♦ MM2 

SETC3810 

384 

CDVTINUr 

SETC3820 

38C 

CONTINUE 

SFTC3830 

00  390  KT  • 1,  NRSS 

SETC3840 

K ■ KRSTIKT)  / 1000000 

SETC3850 

IF  IK  .NE.  96  .AND.  K .NE.  98)  GO  TO  390 

SFTC3860 

K ■ MODIKRSTIKT  ),  100) 

SETC3870 

CO  388  KF  « 1,  NRP 

SETC3880 

IF  !KRPXS!KT,KE)  .EQ.  0)  GO  TO  388 

SETC3890 

LWl  « !KRPXS!KT,KE)  / 10000)  « 10000 

SFTC3900 

MWl  • KRPXS!KT,KF)  - LMl 

SETC39 10 

LM2  ■ MWl  / 100 

SETC3920 

MW2  • MWl  - LW2  * 100 

SETC3930 

LW3  - IW2  * MW2 

SETC3940 

IF  ILW2  .EO.  99  .OR.  LW3  .EQ.  0)  60  TO 

388 

SFTC3950 

N- 


r^r«or»oOorioor*nn  oonn 


C 


MW?  = rATMSL(5,K»  ♦ ,A 

SFTr3960 

IW3  = LW3  / MW3 

SETC3970 

KRPXS(KT,KF)  = LWl  ♦ LW3  • 100  ♦ MW2 

SETC39B0 

3«e 

rONT  IN'UF 

SFTC3990 

3<;c 

CONT  IMUF 

SFTC4000 

ppp 

WRAP  UP 

SFT 04010 

AOC 

IF  (NFL  AG2.GT.0I  ►JFLAG^NFLAG  1 

SETr40?0 

IF  ( IPPIMT.GT.O)  GO  TO  ^30 

SETC4030 

A02 

WR  ITE(M6, 20 1 1)  NFLAG 

SETC4040 

RETURN 

SFTC4050 

PPP 

PRINT  OPTIONS  ***  ♦** 

SFTC4n60 

SETC4070 

ENTRY  PRSFTC! IPRINT) 

SFTCAOBO 

SETC409n 

SSMS  C ASMS 

SFTr.4100 

A3C 

CALL  PAGE 

SFTCAllO 

WP  ITE( N6, 3020  ) NBSSM,  NBASM,  NRSSM,  NRASM 

SFTC4120 

IP  (NMSL.LF.O)  GO  TO  A36 

SETC4130 

IF  ( IPR  INT.L  T.2  ) GO  TO  A36 

SETC4140 

DO  A32  KT3l,NMSL 

SFTC4150 

WR  ITFI N6,  30221  KT,  ( MAMM SL ( I , KT I , 1 » 1 , ? J , KMSLTY ( KT ) 

SFTC4160 

A32 

WRITF(N6,  i02A)  (DATMSLII *K T 1 , I> 1 »L ATMS L) 

SFTC4170 

CALL  PAGE 

SFTC4180 

rn  ah  kt=i,nmsl 

SETC4l9n 

WP ITE! N6,  30231  KT,  ( NAMM SL ( I ,KT ) , I =1 , 2)  t KMSLT Y ( KT > 

SFTC4200 

AH 

WRITE(N6,  3C24>  I TTR  A J ( I ,KT  ) , I »1  , LTR  A J ) 

SFTC4210 

A3E 

WRITEINfc, 20111  NFLAG 

SETC4720 

RFTURN 

SETC4230 

FND 

SETC4240 

SUBPOUT  INF  STTP  AJ(KT,KTEST,KLtVWl  , LA  , MA  , 1 X X ,TT  R A J ,LTP  4 J) 
PGMsNXXlNFM).  L.n.G,  9-15-73  FORTRAA  IV 

TO  SETUP  TEMPORARY  TRAJECTORIES  FOR  MSLS  t A/C. 


*** 


K T 


I,  PRIMARY  TRAJ 


KTFST  * 
Kl 

VWKKL.J 
LA,  MAz 
IXX  * 
TTRAJ  * 
LTRAJ  * 


2 SHORT  RANGE  TRAJ 
TPAJ  :ODF  IN  TABLE  M 13  OR 
LINE  NO. IN  VWl  FOR  TRAJ  TO 
) = JTH  I TEM  IN  L INE-KL 
ABSOLUTE  DIMENSIONS  OF  VWl 
ERROR  INDEX.  *0  IF  OK  ■ 
ARRAY  OF  TRAJ  ELEMENTS 
L FNGTH  OF  TTRAJ 


5113,  E.G. 
BF  SET  UP. 

I IF  KO. 


AOlsPRlMARY 


DIMENSION  VWHLA,MA»,  TTRA  J ( LT  RA  J». 
1 IXX  « 0 

J * C 

IF  (KT.E0.2)  J*25 

TTRAJ!  J*l»  « KTEST 
TTRAJ(JP2)  = VWMKLtl) 

KO  « VWKKL  f2)*1000.  ♦ .A 
TTRAJ(JP3I  » KO  / 1000 
TTRAJ(Jp4I  « MOO!KO, 10001 


STTkoD 10 
FBCn  STTR0020 
STTd.0030 
STTonOAO 
STTR0050 
STTR0060 
TRAJ*A  STTTOOTO 
ST  TR0080 
STTR0090 
STTROIOD 
STTROl  10 
STTP0120 
STTR0130 
STTROIAO 
STTR0150 
STTR0160 
STTR0170 
ST  TR0180 
STTR0190 
STTROPOO 
STTR0210 
STTR0220 
STTR0230 


o n 


K = 1 

STTR0240 

PCUMs  ,0 

STTR0250 

ro  18  L*l,5 

STTR0260 

K = K ♦ 2 

STTR0270 

M * J «•  44L 

STTR0280 

HI  = VW1(KL,K41I  / 6.080 

STTR0290 

H2  = .0 

STTR0300 

IF  (L.LE.4)  H2=VWl(KLtK*3)  / 

6.080 

STTR0310 

KP  * APS(VW1(KL,K)*10000.)  ♦ . 

4 

STTR0320 

Rl  = KD  / 10000 

STTR0330 

VI  = MClDIKD,  10000) 

STTR0340 

r = SORT! (H2-H1)*42  ♦ Rl**2) 

STTR0350 

IF  (n.LT..COl)  GO  TO  10 

STTR0360 

SINA  = (M2-H1)  / 0 

ST  TR0370 

CnSA  = P 1 / D 

STTR0380 

VHl  = Vl*COSA 

STTR0390 

VVl  = Vl*SINA 

STTR0400 

GO  TO  12 

STTR0410 

:*** 

ZERO  IFNGTH  LFG 

STTR0470 

10 

VHl  = ,001 

STTR0430 

VVl  = .0 

ST TR 0440 

PI  » .0001 

STTR0450 

12 

RCUMs  RCUM  ♦ R 1 

STTR0460 

44« 

TAKE  CAPF  OP  AIRPLANE  FLAG 

STTP0470 

IF  (VW1(KL»K).GT.  (-.  0001))  GO 

TO  14 

STTR0480 

VHl  * -VI 

ST  TR0400 

VVl  = .0 

STTPOSOO 

H2  = HI 

STTR0510 

14 

TTRAJIM+l)  * HI 

STTP0520 

TTPAJ<Mh2)  » RCUM 

STTR0S30 

TTPAJ(M  + 3)  » VHl 

STTR  0540 

TTRAJ(M*4)  = VVl 

STTR0550 

IS  CONTINUE 

FILL  FXTR4  POINT 
TTPAJ(J+25)  = .0 

REVERSE  CUM  RANG? 

CO  22  L*2»5 
M * J - A*L  ♦ 2e 

22  TTRAJ(M+2)  » RCUM  - TTRAJ(M-2) 

TTRAJI J^6)  * RCUM 

IF  ( TTRAJI J*2) .LT.100..0R.TTRAJ( J^3).LT. ,0011 

RETURN 

END 


I XX»l 


STTROShO 
STTR0570 
STTR0S30 
STTROSOO 
3T  TROhOO 
STTPOftlO 
STTROf)20 
STTR0630 
STTR0640 
STTROeSO 
STTR06f-0 
STTP0670 


SUBROUTINF  SETUPOII PRI NTI 
C PGM«NXX(NEM) . E.C.  VER.l  10-18-73  FORTRAN  IV  EBl 

C MOCS.RED  AAM  S900-420-A51.  VER.2  12-1' 

C TO  SET  UP  SYSTEMS  DATA  FOR  CURRENT  PRCBLEM  FOR  SYSTEMS  IN  SETUPS 
C CALLED  BY  MAIN  AND  ZIP  CARD  AS  FOLLOWS 

CIP  SAP  SETUPD.  MISC.  WEAPONS 

C*** 

COMMON/DEV  ICF/  N ltN2tN3t N4t NS* N6tN7*N8tN9t NIO tNl 1 fN12 


SETDOOIO 
EBCD  SETD0020 
12-19-74  SET00030 
TUPB  SETDOOAO 

SET00050 
SFT00060 
SETD0070 
SETDOOSO 


N-  46 


rz«7A 


common 

/INOUT/N 

LIN 

F ,NPAG 

1, 

lOUMB) 

72) 

, NFL 

AG, 

nflag 

INTFGF 

R T 

ITLA 

COMMON 

/cz 

AZ  A/N 

CBA 

,I0A1, 

1, 

T ITLA 

( 15 

),MEA 

DAI 

37)  ,IF 

2, 

L AI,L 

AAl 

,MA1, 

MAA 

1,KA  1( 

riMFNS 

ION 

B7A 

( 5 

55) 

FOUIVALFN 

CF  ( 

NCP 

A,B7AI 

NC0r)E(l9) 


CNAVIG 

1 

2 

3 

4 

5 

CPL  tr 

1 

2 

a 

4 

5 


1 

r.7  7 SYS 
I 

csaf»LT 

1 

c s a SY  s 
1 


1 

2 

1 

5000 

5010 


COMMQN/r.N  AV  IG/ 


TTIMF.NUMX, 


VS  SYSTEMS  (SUBSYSTEMS) 

rOMMnN/rPLAT/NBPfNBPMX.NBSSf  NBSSMX.NBSPP (15)  ,NBPWS(45 ) t 
NAMP,P(2, 15),KBPT(  15)  tNABSS(2t45)  »KBST(45)  .KBPXS  (45 , 1 5 ) » 

RPXK  12,  15  ), 

NPP,NRPMX,NRSS,NRSSMX,NRSPP(15) ,NRPWS(45) , 
MAMPP(2,i5) ,kRPT(  15) ,NARSS(2,45)  , KR ST ( 45 ) , KR PXS (45 , 15 ) , 

RPXK  12,15) 

CnMMON/CWOPK/  L A2,MA2,LA3,LA4,MA4,KA2 (43) , A , VA2 ( I 79 ) , K , 

Ka5( 1170) 

25  11  12  15 

COMMON /r7  7SYS/N77SYS,N7  7SMX,NB7SrS,NR7SYS,LA77,NAMSYS  (2  ,25)  , 
K77TYP(25),77SYS(15,25) 

8,12, 15, 

COMMON /CS AML T/L ,M,N,PMN( 15) ,RHX( 15) ,EMN(15) ,EMX ( 1 5 ) , 7MX  ( 15)  , 
XMX(15),  PT(8,12,15) 

15  4 4 2 4 20 

COMMON /CSASYS/  NSASYS ,NSASMX  ,NBGUN, NBSAM, NRGUN ,NRS AM,  LASA, 
NAMSA(  2,  15)  ,KSaTYP(  15),  SASYS(20,15) 

DIMENSION  KB7ZT('),  KRZZT(5),  KBSAST(2),  KRSAST(2) 

DATA  NCB,LZ,M7,LA,MA/  1,555,12,27,12/ 

DATA  NB77T,  NR7ZT,  KB77T,  KRZZT/5,  5,  71000000,  72000000, 
7300000C, 74000000, 7900000C, 91 000000,92000000,93000000,94000000, 
99000000/ 

DATA  NPSAST,  NRSAST,  KBSAST,  KRSAST/2,  2,  75100000,  77100000, 
95100000, 97100000/ 

DATA  NLTMX,  NMTMX,  NNTMX/8,  12,  15/ 

FORMAT) IHO, 'NO  TABLE  FOUND  FOR  101,  ID2**,  2110) 

FORM AT( IHO, 'NO.  OF  MISC.  WEAPON  SYSTEMS*', 1 
, 14) 


SETD0090 
SFTOO  100 
SFTOO  1 10 
SETD0120 
SETOOIBO 
SFTn0140 
SFTOOISO 
SFTOOieO 
SFTOO 170 
SFTOO  180 


RF, 

SFT 

00190 

KBGK( 

18) 

,BGC 

( 8 ,6  1 

,18 

) ,NRtJ(18), 

SFT 

no200 

KRGK) 

18) 

,RGC 

( 8,6, 

»18 

),NRU(18)  , 

SFT 

00210 

SFT 

00220 

,BXYZ 

(40 

,7)  , 

nambui 

140 

,2) ,BV( 

40,8)  , 

SET 

00230 

,RXYZ 

(40 

,7)  , 

NAMRU(40 

,2),RV( 

40,8) 

SFT 

00240 

SFTOO  2 50 
SFTn0760 
SFTn0270 
SFT002R0 
SFT002O0 
SFTOOBOO 
SFTOOilO 
SFT00320 
SET00330 
SFTn0340 
SFTD03S0 
SETn0360 
SET  00370 
SFTn03R0 
SFTn03O0 
SFTn0400 
SFT00410 
SFTn0420 
srTno430 
SFT00440 
SFT00450 
SFT00460 
SFT00470 
SFT 00480 

SETOn^tOO 

SETOOSOO 
SETOOS  10 
STORAGE*' SET00520 
SETOOSTH 


5020  FnpMAT( IHO, 'NO.  OF  SURFACE-TO-AI R SYSTEMS*' 


EXCEEDS 


1=', 14) 


5030 

5040 


FORMAT) IHC, 'NO.  TIME  LINE  TAB LE S*' , I 4 , ' , 
F0PMAT(6X, 'AAGUNS  C SAMS'/ 


5050 


EXCEEDS  STORAGFr' , 14) 


14/ 


flX,'NO.BLU  GUN  TYPE S» ' , 1 4 , ' , NO.BLU  SAM  TYPES’ 
8X,'N0.RED  GUN  TYPE S* • , I 4 , ' , NO. RED  SAM  TYPES*', 14) 
FORMAT) /8X, 'SYSTEM' ,13X, 'MI  N RANGE  MAX  RANGE  MIN  FLEV 
ElEV  MAX  ALT  MAX  HORIZ.'/  8X,'NAME 

• MMi.  iny.tnpr:'.  Qv.tnpr.'.  9X,'KFT', 


AND  TYPE' , 
9X,'NM'  ) 


8X,' NM'  , 


50«0  FORMAT) IX,  It,'.',  2A4,  19,  8G12.5) 


STPRAGESrTn054,0 
SFT005S0 
SCT90560 
SFT00573 
SFTOOSBO 
SETn0590 
MAX  SFTOOftOO 
SET00610 
SFT00620 
SFT 00630 


5070  FOPMATl  IHO,  • AT  FNO  OF  SETUPn.CUM  NO.  SETUP  ERRORS»NFL  AG=*  , 1 5»  SFT00(><*0 

5080  FnPMAT(6X, 'M  ISC . WFAPON  OATA'J  SFTn0650 

5C50  FnKMAT(/I7,*,* ,2AAtI9,'  WEAPON  DATA')  SFTn0660 

51C0  FORMAT(0X, 10G12.5)  SFTD0670 

5110  FORM ATIftX, 'AAGUNS  C SAMS')  SFTOOfefiO 


5120  FORMAT! 6X, ‘M  ISC  . WFAPON  DATA'/ 

1 8X, 'SYSTEM* , 13X, 'MAX  RANGE  VELOCITY  WHO  WT'/ 

2 8X,'NAME  AND  Typp • ,8X, 'NM' , lOX.'KTS't  9X»LBS') 
5130  FORMAT!  1 7 , • . • , 2A  A,  I 9,  80  12.  5 ) 

KZ  APL  = 96  ♦ LA*!  5 ♦ MA  ) 

J7  ARL  = KZARL 
NFLAG2  = C 
NZZSMX  = 25 
lAZZ  = 15 
NSA9MX  = 15 
lASA  = 20 
NZZSYS  = 0 
NPZSYS  = 0 
NRZSYS  = C 
I = Ml  TMX 
M = NMTMX 
M = MNTMX 
MSA  SYS  = 0 
N3  GUN  = 0 
N8SAM  = 0 
MR GUN  = 0 
NR  SAM  = 0 
lY  * 3 
102  = -1 

C***  SETUP  BLU  MISCELLANEOUS  WEAPON  SYSTEMS 
IF  !KBU  .LE.  0)  GO  TO  400 

C***  CYCLE  THRU  RLU  SYSTEMS 
on  70  KC  = 1,  NBZZT 
101  = KBZZT! KC  ) 

CALL  RCRnil!BZA,LZtMZ,NCB,KZARLtIOl, 102,1 Y.IXX) 

IF  I IXX  .EO . 0 ) GO  TO  10 
WP  ITEIN6,5000)  101,102 
GO  TO  70 

10  no  60  KT  * 1,  NPSS 
K = KPSTIKT)  / 10000 

IF  !ini/1000000  .NF.  K/lOO)  GO  TO  60 
m 20  J * 1,  LAI 
IF  !K  .FO.  KA1!J,5))  GO  TO  30 
20  CONTINUE 
GO  TO  60 

C***  FPUNO  SYSTEM  IN  CATALOG 
30  JT  * J 

NPZSYS  ■ NPZSYS  ♦ 1 

IF  INPZSYS  .LE.  MZZSMX)  GO  TO  40 

WRITEIN6, 5010)  NBZSYS,  NZZSMX 


SFTr)0690 
SOT00700 
SET00710 
SFT00720 
SFTnn730 
SFTn0740 
SFT00750 
SFT00760 
SFTn0770 
SETOOTBO 
SET00790 
SFT00800 
SFTOOPIO 
SFT00820 
SETOOP30 
SETn0P40 
SFTnnaso 
SFTn0P60 
SETOORTO 
SFT00880 
SFTn0890 
SFTOOQOO 
SETn0910 
SFTOOPZO 
SFTn0930 
SFT00940 
SFT 00950 
SETr)0960 
SFTOOPTO 
SETPOPSO 
SET  00990 
SFTOIOOO 
SFTOIOIO 
SFT01020 
SFT01030 
SETni040 
SET01050 
SFTOlOeO 
SFTOIOTO 
SFTOIOOO 
SFTOIOPO 
SFTOl 100 
SETOl 110 
SFT01120 
SFTOl 130 


NFLAG2  * NFLAG2  ♦ 1 
NBZSYS  * NZZSMX 
GO  TO  100 

C***  TRANSFER  SYSTEM  NAME  AND  OATA,  PUT  POINTER  IN  KBST. 
40  NABSS!1,KT)  « KA1!JT,2) 


SET01140 
SFT01150 
SFT01160 
SETOl 170 
SFTOl 180 


N-  48 


MAM  SVS(  l,Mi  7SYS)  = KAKJT,?) 

MAPSS«  2,K  T)  = KA  1( JT,3) 

NAMSYS(2,MPZSYS)  = KAl(JT,3) 

KZZTYP (NRZSYS)  = K ♦ lOOOO 

KRST(KT)  = K ♦ lOOOC  ♦ NBZSYS 
rn  50  Kn  = 1,  i? 

SFTni IPO 
SFTni?on 
SETr)i?10 
SFTni??0 
SFTni?30 
SETD1240 

;o 

ZZSYSCKP, NBZSYS  ) = VAKJT.KD) 

A = 1FIX»VA1( JT,2)  * .004) 

7ZSYS(  2,NeZSYS)  = A 

SET01250 

SFTni260 

SFT01270 

ZZSYSl  13t NPZSYS ) = I F I X ( ( VA 1 IJT , 2 ) - A)  * 

A = tFIX(VA  1<JT,3)  ♦ .004) 

ZZSYS(  3, NBZSYS)  = A 

100.  ♦ .4) 

SFTni280 
SFT01?q0 
SFTOl 300 

ZZSYS(  14, NBZSYS  ) = I F I X ( ( VA U JT ,3) -A)  * 

A = IF  IX  ( VA  l(JT,7)  ♦ .004) 

ZZSYSI  7, NBZSYS)  = A 

ZZSYSI  15, NRZSYS)  = VA1(JT,7)  - A 

ZZSYSC 6, NBZSYS)  = Z Z SYS( 6, NB Z SYS)  / 60. 

10.  * .4) 

SETOn  10 
SETr)1320 
SFTni330 
SETO1O40 
SFTni35n 

AOJUST  FOP  SALVn  SIZE 

MA4  = VA1(JT,5)  ♦ .00001 
rn  55  KF  = 1,  NBP 

IF  (KBPXSIK T,Ke)  .FO.  0)  GO  TO  55 

LA?  = (KRPXS(KT,KE)  / 10000)  ♦ 10000 

MA?  = KRPXS«KT,KE)  - LA? 

LA3  = MA?  / 100 

MA3  = MA  ? - la  3 ♦ 100 

LA4  = LA3  ♦ MA3 

SETni360 
SFTDI 370 
SFT01380 
SFTOl 390 
SET01400 
SETni410 
SFTni4?0 
SETni430 
SFT01440 

IF  (LA3  .EO.  9<3  .OR.  LA  4 .FQ.  0)  GO  TO 

L A4  = L A4  / 

KRPXS(KT,KF)  = la?  ♦ LA4*100  ♦ MA 3 

55 

SFTD1450 

SFTni460 

SFTni470 

55 

CONT INUE 

SET014B0 

60 

COMT  INUE 

SFTni4P0 

70 

rONT  INUF 

SFTOISOO 

ICO 

NZZSYS  = NBZSYS 

SFT01510 

SETUP  BLU  SURFACF-TO-A IR  SYSTEMS 

DO  170  KE  = 1,  NHSAST 

10  1 = KBSASTIKC ) 

SFTOl 5?0 
SFTn  1S30 
SFTni540 

CALI  RCROl  1(BZA,LZ,MZ,NCB,KZARL,ID1, 102 
IF  I IXX  .FO  . 0 ) GO  TO  110 

WR  ITF( N6, 5000  ) 101,102 

GO  TO  170 

,IY,IXX) 

SETC1550 
SET01560 
SFTOl 570 
SFTOl 5P0 

1 10 

CO  160  KT  = 1,  NBSS 

K » KPST(KT)  / 10000 

IF  IIOI/IOCOOOC  .NE.  K/lOO)  GO  TO  160 
no  120  J = 1,  LAI 

IF  (K  .EO.  KA1(J,5))  GO  TO  130 

SCT015O0 
5ETni600 
SFTni6  10 
5FTni6?0 
SFTOlhBO 

120 

CON  T IN  UF 

GO  TO  160 

SETOl 640 
SFTO  1650 

FrUNO  SYSTEM  IN  CATALOG 

SFT01660 

I’O 

JT  = J 

GO  TO  (131,  132),  KC 

SFT01670 

SETni6B0 

111 

NBGUN  = NBGUN  ♦ 1 

GO  TO  133 

SETni6P0 
SFTOl 700 

132 

NBSAM  * NBSAM  *■  1 

SET01710 

133 

NSA  SYS  * NSASYS  *■  1 

IF  (NSASYS  .LF.  NSASMX)  GO  TO  140 

SFTOl 720 
SFTni730 

r 

1 

< 

i 

W«  ITF( Mf t 5020)  NSASYSf  NSASMX 

SETOl 740 

NFLAG2  = NFLAG2  * 1 

SFTni 750 

NSASYS  = NSASMX 

SETOl 760 

rn  TO  ( 13A,  135)  , KC 

SET0t770 

13A 

NBGUN  = NBCLN  - 1 

SFTDl 780 

CD  TP  Aon 

SFT01790 

135 

NBSAM  = NBSAM  - 1 

SFTOIROO 

cn  TD  AOO 

SETOlflin 

TRANSFFR  SYSTFM  NAMF  AND  DATA.  PUT  POINTER  IN  KBST. 

SFTO1820 

1^0 

NABSSI  l,KT)  = KA1(JT,2) 

SFT01R30 

NAMSAI  UNSASYS)  = KA1(JT,2) 

SFTOl R40 

NABSSI 2fKT)  = KAl  (JT,3) 

SFT01B50 

NAMSAI 2tNSASYS)  = KA1IJT,3) 

SETni860 

'■ 

KSATYPINSASYS)  = K * 10000 

SFTni370 

i 

KBSTIKT)  = K * 10000  ♦ NSASYS 

SFT01B80 

no  150  KP  = 1,  12 

SFTOl 890 

a 

150 

SASYSI Kn, NSASYS ) = VA1IJT,K0) 

SETOl 900 

t 

A = IF  IXIVAl  IJT,2)  ► . 00%) 

SETOloio 

J 

i 

SASYSI  2, NSASYS)  = A 

SFT01920 

SASYSI  13»NSASYS)  = I F I X I I VA 1 IJT 1 2 )- A)  * 100.  ♦ .A) 

SETni930 

A = IFIXIVA  1IJT,3)  ♦ .OOA) 

SFTni940 

SASYSI  3, NSASYS)  = A 

SETni950 

SASYSI  14, NSASYS  ) = I F I X I I VA 1 IJT ,3 ) - A)  * 10.  ♦ .4) 

SFT01960 

A = IF  IXI VA 1IJT,7)  ♦ .004) 

SFTPiqTO 

1 

SASYSI  7, NSASYS)  = A 

SET01980 

i 

SASYSI 15, NSASYS)  = VA1IJT,7)  - A 

SETni990 

1 

SASYSI  6- NSASYS)  = SASYS  I6,N  SA  SYS)  / 60. 

SET  02000 

C*** 

ADJUST  /F  SALVO  SI7E 

SFT02010 

' 

MA4  = VA  1IJT,5)  ♦ .00001 

SFT0202n 

• 

i 

r,n  155  KF  = 1,  NBP 

SETn2030 

1 

IF  I KPPXSIKT,KE  ) .FO.  0)  GO  TO  155 

SFT02040 

LA2  = IKBPXSIKT.KF)  / lOOOO)  ♦ 10000 

S FTn2050 

MA2  = KBPXSIKT,KF)  - LA2 

SFTn2060 

LA3  = MA2  / 100 

SFTn2070 

MA3  = MA2  - LA3  ♦ 100 

SETn2080 

LA4  = LA3  ♦ MA3 

SFToznoo 

IF  ILA3  .FO.  95  .OR.  LA4  .EQ.  0)  GO  TO  155 

srTn2ioo 

« 

LA4  = LA4  / MA4 

SETOZ 1 10 

KBPXSIKTfKF)  = LA2  ♦ LA4*100  ♦ MA3 

SFTP2120 

155 

f.ONT  INUE 

SFTP213n 

160 

CONT  INUE 

SETD2140 

170 

CPNT  INUF 

SFTn7150 

SETUP  RED  MISCELLANEOUS  WEAPON  SYSTEMS 

SFTn2l60 

. 

«C0 

IF  IKRU  .LF.  0)  GO  TO  600 

SET02170 

j 

CYCLE  THRU  RED  SYSTEMS 

5FT02180 

no  470  KC  = 1,  NPZ2T 

SFTPZ  190 

101  » KRZZTIKC) 

SETn2200 

CALL  RCB011IBZA,LZ,MZ,NCB,KZARL,ini, 102, I Y, I XX) 

SFTn2210 

IF  I IXX  .EQ.  0)  GO  TO  410 

SFTn?220 

WRITEIN6,5C00)  101,102 

SFTO2230 

GO  TO  470 

SET02240 

A 10 

no  460  KT  * 1,  NPSS 

SET02250 

K « KRSTIKT)  / 10000 

SET02260 

IF  IIDI/1000000  .NE.  K/lOO)  GO  TO  460 

SFT02270 

no  420  J * 1,  LAI 

SETO220O 

1 

O 

— 

■ 

1 


1 


IF  (K  .Fa.  KAl(J,5))  GO  TO  430 
A 20  FONT  IN OF 
GO  TO  460 

C***  FOUND  SYSTEM  IN  CATALOG 
430  JT  = J 

NAZSY*:  = N7/SYS  ♦ I 

IF  IN7ZSYS  .LE.  IZZSMXI  GO  TO  440 

WttITE(N6,SC10»  NZZSYS,  NZZSMX 

NFl  AG?  = NFL  AG2  ♦ 1 

NZZSYS  = n7Z«;mx 

GO  TO  EOO 

c***  TRANSFFR  system  name  and  data,  put  pointer  in  krst. 

440  NARSSIl.KT)  = KAKJT,?) 

NAMSYSI  I, NZZSYS  » = KAKJT, 2) 

NA^SSI  2,KT)  = KAKJT, 31 
NAMSYS  (2,NZ  ZSYS  ) = KAKJT, 3) 

KZZTYP (NZZSYS)  = K * lOOOO 
KRST(KT)  = K * lOOCC  ♦ NZZSYS 
ro  450  KO  = 1,  12 

450  ZZSYS(Kn, NZZSYS  ) = VAKJT.KO) 

A = IFIXI VAl(JT,2»  ♦ .004) 

ZZSYS(  2, NZZSYS)  = A 

ZZSYS(  13, NZZSYS)  = I F I X K VA K JT ,2 ) - A ) ♦ 100.  ♦ .4) 

A = IF  IX ( VA  1( JT  ,3)  ♦ .004) 

ZZSYSI  3, NZZSYS)  = A 

ZZSYSI  14, NZZSYS  ) = 1 F 1 X K VA K JT , 3 ) - A ) ♦ 10.  ♦ .4) 

A = IFIXI VA  1( JT,7)  ♦ .004) 

ZZSYSI  7, NZZSYS)  = A 

ZZSYSI  15,  NZZSYS)  = VAKJT,7)  - A 

ZZSYSI 6, NZZSYS)  = Z Z SY S 1 6 , NZ ZSYS ) / 60. 

ADJUST  FOR  SALVO  SIZE 
MA4  = VAKJT,5)  ♦ .00001 
rn  455  KF  = 1,  NRP 

IF  IKP.PXSIKT,KE  ) .FO.  0)  GO  TO  455 

LA2  = (KRPXSIKT,KC  ) / 10000)  ♦ 10000 

WA2  * KPPXSIKT,KE)  - LA2 

IA3  = MA2  / 100 

MA3  = MA2  - LA  3 * 100 

LA4  = LA3  * MA3 

IF  (LA3  .EO.  99  .OR.  LA4  .FO.  0)  GO  TO  455 
LA4  = LA4  / MA4 

KRPXSIKT,KF)  = lA2  ♦ LA4*100  ♦ MA3 
455  CONTINUE 
460  CONTINUE 
4 70  CONTINUE 

5C0  NRZSYS  = NZZSYS  - Nfi ZSYS 
C***  SFTUP  RED  surface-to-air  SYSTEMS 
DO  570  KC  * 1,  NPSAST 

ini  « krsast(kc) 

CAIL  RCRDl 1(BZA,LZ ,MZ ,NCfl , K Z ARL , I D I , 102  , I Y , I XX ) 

IF  I IXX  .EO.  0)  CO  TO  510 
WR  ITFIN6,5000)  101,102 
GO  TO  570 

510  ro  560  KT  * 1,  NRSS 
K « KRST(KT)  / 10000 


SETr2290 
SETD2300 
SETn2310 
SFT 02320 
SFT02330 
SFT02340 
SETD2350 
SETri2360 
SFTO2370 
SFTn23flO 
SETO2390 
SFT 02400 
SFT0741 0 
SFTD2420 
SFTO2430 
SET02440 
SETn2450 
SET0246n 
SFTD2470 
SFT024P0 
SFTr)2490 
SFTn2500 
SCT025  10 
SFTn25?0 
SFTr2530 
SFTn?S40 
SFT02550 
SFT025( 0 
SFTn?570 
SFTn25flO 
SCT025Q0 
SFTn?600 
SFTn26in 
SFto2(S?0 
SFTr»2630 
SrTn2640 
SFTn?s5n 
SPTO’beo 
SFTr)2670 
SFTr)2NP0 
SFTO26Q0 
SETn2700 

SFT'127  10  ] 

SET02720  ' 

SrT02Z30 

SPTn2740 

SFTn?750 

SFTn?760 

SFTO2770 

SET027nn 

SFTn27oo 

SFTozRon 

SETOZRIO  i 

SETO2520 

SFTn2830 


N-  51 


r 


c 


c 


IF  (ini/lOOOOOC  .NE.  K/lOO)  GO 

TO  560 

SETn2840 

nn  520  j = ii  LAI 

SETn2850 

IF  (K  .FO.  KAl(J,5))  GO  TO  53  0 

SPTC2860 

5 20 

CONT  INUF 

SFTOZRTO 

GO  TO  560 

SETr)2880 

** 

FruNO  SY5TFM  IN  fiTALOG 

SFTn2890 

5 30 

JT  = J 

SET02900 

GO  TO  (531,  532),  KC 

SFTr)2910 

531 

MPGUN  = NPGUN  1 

SFTn2920 

GO  TO  533 

SFT02930 

522 

NRSAM  = NHSAM  ♦ 1 

SrT02940 

523 

NSASYS  = NSASYS  ♦ 1 

SFTn2950 

IF  (NSASYS  .LF.  NSASMX)  GO  TO  540 

SFTn2960 

WR  ITE(N6,5020)  NSASYS,  NSASM* 

SFTn2970 

NFLAG2  = NFLAG2  ♦ 1 

SFTn2980 

NSASYS  = NSASMX 

SFTnzooo 

CO  TO  (534,  535),  KC 

SFTOiOOO 

5 34 

N3GUN  = NRG  UN  - 1 

SFT  03010 

GO  TO  600 

SFTD3020 

535 

NRSAM  = NRSAM  - 1 

SFT03030 

GO  TO  600 

SFTn3a40 

«4 

TRANSFER  SYSTFM  NAMF  ANO  OATA. 

PUT  POINTER  IN  KRST. 

SFTn305n 

5 40 

NARSS(  1,KT)  = KA1(JT,2) 

SET03060 

NAMSA(  1, NSASYS  ) * KA1(JT,2) 

SET03070 

KARSS(2,KT)  = KA1(JT,3) 

SFT03080 

KAMSA( 2, NSASYS)  = KA1(JT,3I 

SFTn30R0 

KSATYP(NSASYS)  = K ♦ lOOOO 

SETn3100 

KRST(KT)  = K ♦ ICOOO  ♦ NSASYS 

SET03  1 10 

rn  550  KO  = 1,  12 

SFT03120 

5 50 

SASYS(Kn, NSASYS  ) = VAl(JT,Kn) 

SFT03130 

A = IFIX(  VA1(JT,2)  ♦ .004) 

SFT03140 

SASYS(  2, NSASYS)  = A 

SFT03  150 

SASYS(  13, NSASYS)  = IFIXKVAHJT 

,2)-A)  * 100.  ♦ .4) 

SETn3160 

A = IFIX(VA  1(JT,3)  ♦ .004) 

SFTHl 170 

SASYS(  3, NSASYS)  = A 

SFTOOIBO 

SASYS(  14, NSASYS ) = IF1X((VA1(JT 

,31-A)  * 10.  ♦ .4) 

SET03190 

A = IFIX(  VA1(JT,7)  ♦ .004) 

SFT03200 

SASYS(  7, NSASYS)  = A 

SFTOIZIO 

SASYS(  15, NSASYS)  * VA1(JT,7)  - 

A 

SFTn3220 

SASYS(  6, NSASYS)  = SASYS(6, NSASYS)  / 60. 

SFT0323n 

4« 

AGJUST  FOR  SALVO  SIZE 

SET03240 

MA4  * VA1(JT,5)  ♦ .00001 

SFTn3250 

DO  555  KF  = 1,  NRP 

SFTr)3260 

IF  (KRPXS(KT,KE)  .FO.  0)  GO  TO 

555 

SFT03270 

LA2  = (KRPXS(KT,KE)  / 10000)  ♦ 

10000 

SFT03280 

NA2  = KPPXS(KT,KF)  - LA2 

*SFTn32oO 

LA3  » MA2  / 100 

SETO3300 

MA3  * MA2  - LA  3 ♦ 100 

SCTO'^TIO 

LA4  » LA3  ♦ MA3 

SFT03320 

IF  (LA3  .EG.  99  .OR.  LA4  .EO.  0)  GO  TO  555 

SET03330 

LA4  * LA4  / MA4 

SFTO3340 

K)3PXS(  KT,KE ) * LA2  ♦ LA4*100  ♦ 

MA3 

SFT03350 

555 

CONTINUE 

SPT03360 

560 

CONTINUE 

SFTn3370 

570 

CON  T IN  UF 

SET03380 

* ‘ 


N-  52 


c*** 

6C0 


6 10 
6 20 


670 

7C0 


r.*** 

c»** 

c*** 

eco 


8C<. 


8C6 

8CB 


8 10 


8 20 


SETUP  TIMc  LINES  75XX,  77XX,  95  XX,  77  XX 
IE  (nsasys  .le.  0)  on  Tn  700 
no  670  KC  = 1,  NSASYS 
IPl  = KSATYP (KO ) 

Cfll  I Rr8nil(87i,LZ,MZ»NC8,KZARLiini,I02tl Y.IXX) 
IF  I IXX  .ro . 0 ) GO  TO  61C 
ITFI N6,  5000  1 101,102 

GO  TO  670 
PP  620  I = I,  LAI 
rn  6 20  J = 1,  NAl 
0T(  I, J ,KC  ) = VA  1 ( I , JI 
PMNIKC  1 = CAIAI 
PMXI KC  I = CA( 8 ) 

FMNIKC)  = ICAIAI 
FMXIKC ) = ICA( 8) 

ZMXIKC  1 = ICAI  16) 

XMX I KC  ) = r A(  16) 

SASYSI 16, KC ) = RMNIKC ) 

SASYSI  1,KC ) = RMXIKC ) 

CONTINUF 

IF  (NFLAG2  .GT.  D NFLAG  = NFLAG  ♦ 1 
IF  ( IPPINT  .GT.  C)  GO  TO  800 
CO  TO  «500 

PRINT  OPTIONS  • * ♦ 

* * * 


SFTC3  3RO 
SFT03A00 
SETn3AlO 
SFTn3A20 
SFTn3930 
SCTDiAAO 
SFT03450 
SFT03A60 
SETO3970 
SET03480 
SFT03490 
SFTOOSOO 
SFT03510 
SFTO3520 
SFTD3530 
SFT03590 
SFT03550 
SFT03560 
SFTn3570 
SFT035fl0 
SFTn3590 
SFT03600 
SFTn3610 
SETn3620 
SFTn3630 


ENTRY  PR  SETOn  PRI  NT) 


SFTO3690 


* * * 


56703650 


IF  (NZZSYS  .LF.  0)  GO  TO  808 
CALL  PAGE 
WR ITF(N6,5120) 
no  809  I = 1,  NZZSYS 

WP  I TF(  N6,  51  30)  I,  (NAMSYSI  J,I),  J=l,2)  , KZZTYPd), 

1 I ZZSYSI J,  I ),J=l,3) 

IF  I IPRINT  ,LT.  2)  GO  TO  808 
CALL  PAGF 
WP  ITFI N6,  5080) 

PO  806  1 = I,  NZZSYS 

WR  ITF(N6,5090)  I,  I NA  MS  YS  ( J , I ) , J>1 , 2 ) , KZZTYPd) 

WR ITFI N6, 5100)  IZZSYSIJ,!) ,J=l,LAZZ) 

IF  (NSASYS  .LF.  0)  GO  TO  900 
CALL  PAGE 

WP 1TFIN6,  5090)  NBGUN,  NBSAM,  NRGUN,  NPSAN 
WR  ITE(N6,  5050) 
no  810  I = 1.  NSASYS 

WR  ITF(N6,  5060)  I,  ( NA  MS  A (J  , ! ) , J>  1 , 2 ) , KSATVPd),  RPNII), 

I FMNin,  FMX(I),  ZMXd),  XMXd) 

IF  (IPRINT  .LT.  2)  GO  TO  900 
CALL  PAGE 
PRINT  T IMF  L INFS 
no  820  I = I,  NSASYS 
L A2  = RT(  I,  1,1  ) ♦ ,1 
MA2  » M0r)(LA2,  100) 

LA2  » LA2  / 100 

CALL  WMAT3(2,R,RT,L,M,N,LA2,NA2,I ,NLINE,60HB0R0ERFC  TABLE 
ICR  SAN  TIME  OF  FLIGHT  (SEC  VS  DEG)  1 


SFT 03660 
SFTn36T0 
SFTn36R0 
SFTn3690 
SETOT  700 
SFTn371 0 
SFTP3720 
SPTn37’0 
SFTP3790 
SFTO?  750 
SFTn8760 
SETn3770 
SFTn37P0 
SFTn3790 
SETOiROO 
SFTn38  10 
SETP3820 
RMX(  I ),  SFTn38XO 
SETOTRAO 
SFT03850 
SFTn3R60 
SETn3R70 
SFTOXBBO 
SFTC3890 
SFTn3900 
SFT03910 
, AAGUK  SFTn3920 
SFT 039 30 


CALL  PAGE 

WR  ITE(N6, 51101 

no  860  I = If  NSASYS 

WR  ITP(N6,5090)  I,  ( NAM<;a  ( Jt  I I t t2  I t KSATYPII) 
WRITE! N6t  5100)  (SASYS< J 1 1 ) t J-lt LASA) 

WKITFINE,  50  7 0 NFl  AG 
RETURN 
END 


SETD3O40 

SFT03«)50 

SETR3960 

SET03‘)70 

SFTn3980 

SFTn3990 

SFT04000 

SFT04010 


SUPPHUTINF  SFTUPF!  IPR INT  ) 

C PGM*NXX(NF)').  L.O.G.  VER.5.  9-7-73  FORTRAN  IV  FRCO 

C TO  SFT  UP  SYSTEMS  DATA  FOR  CURRENT  PROBLEM  FOR  SYSTEMS  IN  SFTUPR 
C CALLFC  PY  main  and  zip  CARD  AS  FOLLOWS 


8 5 P SETUPE.  RADARS  AND 

CrMMON/rFV ICE/  N l,N2,N3fN4fN5fN6fN7 fNfl  fN9,NlO,Nllf M2 
CnMMnN/INOuT/NL INF,NPAGEfDUMA(35) f NCODE ( 191 
l,TnUM8(72)t  NFLAG,  NrLAG2 


JAMMFRS 


CZ  AZA 


IMTFGFR  TITLA 

COMMON/CZAZA/NCBA  fIDAlf IDA2  1 1 DA3 t JZ ARL t L Z A fM ZA « I C A ( 16 ) fCAI  16) 
if  T ITLA  I 15  ) fHEADA  (3  7)  f IFMT 
2f  I AULAAlfMAlfMAAlfKAK  27f5)«VAl(27»12) 
niMENSlON  BZA(  555) 

EQUIVALENCE  ( NCR A f BZ A ( 1 ) ) 

FATA  NCPfLZfMZflAfMA/  1 f 555f 12 f 27f 12 / 


CNAVI G 


f.  PL  AT 

1 

2 

3 

A 

5 

CRATAR 


COMMON /CN AVI G/  NCMXf BFfBF  fREfRF  f 

NRGf  BAfBBfBCfBDfKBGNdB)  fKBGKIlB)  tBGC!  Bt 6 f IB  ) f NRU ( 1 8 ) f 
NRGfR AfRRfRCf ROf KRGNI 18) fKRGKI 18) f RGC  < 8f6f 18  )f NRU( 18) f 
TTIMFf NUMXf 

KBUfKBUK (Af 50)fRREL(Af50) f 8 XYZ ( 50 f 7 ) f NAMBU (50  f 2 ) f BV ( 50 f R ) f 
KRUfKRUK(Af  50 ) f R RE L ( A f 50) fRXYZ(50f7l fNAMRU(50 ,2) fRV(5n  f8) 
COMMON/CWOPK/L A2fMA2fLAA2f MAA2f  KA2( 3f 15) fVA2 (12  f 15 ) f 

LA3fMA3fLA A3fMAA3f  VA3(36fl5)f  KA5(  727) 

VS  SYSTEMS  (SUBSYSTEMS) 

COMMON/CPLAT/NRPfNBPMXf'NRSSf  NBSSMXfNBSPP!  15)  fNBPWS(A5)f 
NAMEP( 2f  15)fKBPT(  1 5) /nAB SS( 2 f A5)  fKBST(A5)  f KB PXS ( A5 f 1 5 ) f 
BPXK  12f  15)f 

NRPf NRPMXf NRSSfNRSSMXfNRSPP! 15) fNRPWS (A5) f 
NAMRP(2f 15 )f KRPT( 15) fNARSS(2f A5) fKRST(A5) f KRPXS ( A5 f 1 5 ) f 
RPXK  12f  15) 

CnMMON/CRADAR/NBSRfNBTRfNBRMXfNBJfNBJMXf 

BRAD(36f  17)fBENV(6f2) fBETC(Af2) f8TAR(6f3) *B JAM( 6f 3f 2 ) f 
NRSRf NRTRf NRRMXfNRJt  NRJMXf 

RR AD(36f 15 )f RENV( 6f 2 ) fRETC ( At  2 ) f RTAR ( 6f 3) fRJAM(6f3f2 ) 


C*** 

C K 
C N 
C N 
C E 
C P 


KBSP  « NO.BLU  SEARCH  RADARS  / 
N8TR  * NC. BLU  TRACK  RADARS  / 
NBRMX  « MAX  NO.BLU  RADARS  / 
ERAC(lfJ)*  BLUf  ITH  TATA  ON  JTH  RADAR/ 
PENV(lfK)«  BLU  RADAR  ENVIRONMENT  K / 


NRSR  » NO. RED  SEARCH  RADARS 
NRTR  « NO. RED  TRACK  RADARS 
NRRMX  • MAX  NO. RED  RADARS 
RRADUfJ)*  ETC. 

RENVd  fK)« 


SETFOO  10 
SFTF0020 
SFTE0030 
SFTFOOAO 
SETE0050 
SETE0060 
SFTFOOTO 
SETE0080 
SFTF0090 
SFTFOlOO 
SFTEOllO 
SFTF0120 
SFTF0130 
SFTEOIAO 
SFTE0150 
SETE0160 
SFTF0170 
SCTFOlflO 
SFTF0190 
SETF0200 
SFTF0210 
SCTFn?20 
S'=TF0?30 
SFTE02A0 
SFTP0250 
SFTF0260 
SFTr0270 
SETF02P0 
SFTF0200 
SFT  F0300 
SFTE0310 
SFTF0320 
SFTF0  3 30 
SFTEO  3A0 
SFTF0350 
SETFO360 
SFTF037n 
SETF03fl0 
SFTE0390 
SETFOAOO 
SFTFOAIO 
SFTE0A20 
SFTE0A30 
SETFOAAO 


N-  5A 


r>nor>r»ooo 


csr^^ 


eETC(ItL)=  PLU  MISC  EAflAR  DATA  L / 
PTAP(I,M)=  PUJ  RADAR  TARGET  DATA  M / 
EJAM(  I, J,N  ) = BLU  JAMMER  DATA  N / 

NOTE.  TEE  PCI  INTER  TO  THE  JTH  RADAR  IS/ 
IN  KPSTI  )=KPST(  K J,  1J.LF.9«))  . / 

c a'th  jammer  in  KPSTI  »=KPST(  )+N  / 

««  « 


niMfMSION  KBRTTI  2),  KRRTTI  2) 
dimension  pool ( 2) ,PRTPEt2t2) 

EATA  NPRTT.KBRTT/  2, 65lOOCOOt67lOOOOO/ 

TATA  NRRTT.KRRTT/  2 t 8 51 OOCOC. 871 00000/ 

DATA  POOL /•  BLU*  t • RED*/ 

CATA  PPTPE/*  SEA'f'RCH  TRA*,*CK  •/ 

> 15  5 8 12 

r.nMMnN/CSnNAR/NSON,NSGNMX,NBSCN,NRSONtLASON,  NAMSCNI  2,  151  , 

L KSONTYIIS),  S0NSYS(12,15) 

EOP^ATI  lH0,22HERRnR  IN  SETUPE  AT  E 1 = , F8 .2 t3 X I D1 * * , 2 1 10 , 2G 13 . 6 1 
EnPM ATI  IHO,  'ND.  OF  R ADAR S= • , I 4, • , EXCEEDS  STOR AGF  = * , I 4 ) 

FORMAT! IHO, 'NO  TABLE  FOUND  FOR  IDl,  ID2=*,  2110) 

FORMAT! IHO, ‘NO.  or  JAMMER S* • , I 4 , • , EXCEEDS  STORAGF*' , 14) 
format ! IHO,  'NO.  OF  SON AR S= • , I 4, • , EXCEEDS  STORAGE  = ' , I 4) 

FORMAT!  IHO, 'AT  END  OF  SETUPE,  CUM  NO.  SETUP  ERRORS*NFLAG=' , IS ) 
F0RMATI7X, 'BLU  PLATFORMS  VS.  SYSTEMS') 

FORM.  ATI7X, 'RED  PLATFORMS  VS.  SYSTEMS') 

FORMATIPX,  'SYSTEM', 13X,  8 1 1 3, '.  ' , 2A4)  ) 

FORM  AT! qx,  'NAMF  AND  TYPE',6X,  8112) 

FORM  AT! 5X, 1 3, ' . ',2A4, iq,2X,  81 12) 

FORMAT! 6X, ' SONAR  DATA'/ 

L 8X,'Nr!.BLU  SONAR  TYPF  S*  ' , I 4,  ' , NO. RED  SONAR  TYPFS=',I4) 
F0RMATC/1X,I6,' .',2A4,iq,'  SONAR  DATA') 

FOR'' ATIBX,  10G12.5) 

FORMAT! /6X, 3A4, 'RADAR  ARRAY  DATA ' /6X ,1 0 ! ' COL. * ' , I 3 ,2 X ) ) 

FORMAT!  IX, 14, IX,  10G12.5) 

FORMAT! /6X, A4, ' JAMMER  ARRAY  DATA'/) 

FORMAT!  IX,  14,  IX, 3G12.5,5X,3G12.5) 

K7APL  - 94  ♦ LA*( 5 ♦ MA) 

J7 ARL  = K ZARL 
NFLAG?=  .0 


1 

c*** 


NSONMX  = IS 
LASON  = 12 
NS ON  * C 
NBSON  = 0 
NR  SON  = 0 
SETUP  PLU  RADARS 
IF  IKBU.IF.O)  go  TO  201 
CYCLF  THRU  BLU  CATALOG  RADAR 
lY  * 3 
NBTR  * 0 
NPSR  * 0 

no  46  KC*1,NBRTT 
IDl  ■ KBRTTIKC  ) 
irTPF*iri/ioooooc 

DO  44  KX»1,3 
ID2  « -KX 


TABLES 


SFTE0450 

SFTF0460 

SFTE0470 

SFTF04P0 

SFTF04qn 

SFTFOSOO 

SETFOSIO 

SFTF0520 

SFTE0530 

SFTFOSAO 

SFTrQSSO 

SFTF0560 

SFTFOS70 

SFTFOSflO 

SrTPOSqO 

SFTF0600 
SFTFOMO 
SFTF0620 
SFTE0630 
SFTF0640 
SFTFn650 
SFTE0660 
SETF0670 
SFTF06R0 
SFTEOftqO 
SFTFO  TOO 
SFTF.DTIO 
SrTFO  720 
SFTE0730 
SFTF074n 
SFTF0750 
SFTP0760 
SFTFOTTO 
SPTF0780 
SETFOTPO 
SFTFOnOO 
SFTFOPn 
SrTFnR70 
SFTF0B3D 
SCTFDq40 
SPTFOBSO 
SFTroq60 
SFTFOBTO 
SFTF08PD 
SFTEOBPO 
SFTFDqnn 
SETFOPIO 
SFTCQqpn 
SETFOqjO 
SFTPOqAO 
SFTFoqsn 
SETFOqsO 
SFTEOqTO 
SFTF09B0 
SFTFoqqo 


N-  55 


CALI  RC8nLl(8ZA«LZtMZ,NCB,KZARLtIDl,I02  tlYflXX) 

SETEIOOO 

IF  ( ixx.FO.o)  r.r  rn  26 

SFTElOlO 

wRiTP(N6t2007)  iri,in2 

SFTE1020 

GO  TCI  44 

SFTFtOaO 

r*** 

CVCLE  THRU  SYSTEM  TYPES  IN  KBST  (FROM  ENGAGEMENT  STRUCTURE) 

SETP1040 

26 

rn  42  KT=1,N8SS 

SETE1050 

K = KBST(KT)  / lOOOO 

SETei060 

IF(K/inO  ,NE,  IDTPF)  GO  TO  42 

SETF1070 

rn  28  J=l»LAl 

SFTFin80 

IF  (K.FO.KAK  J,5))  GO  TO  30 

SFTE1090 

28 

FONT INUE 

SFTFllOO 

GO  TO  42 

SFTF  1 1 10 

FrUND,  SYSTEM  TYPE  IN  CATALOG 

SFTE1120 

30 

JT  = J 

SETFl  130 

IF  (KX.GF.2)  GO  TO  37 

SFTE1140 

TPANSFFR  PAOAR  NAME  AND  DATA.  PUT  POINTER  IN  KBST. 

SETF1150 

IF  ( ICTPF.NE.65)  GO  TO  32 

SFTF1160 

rnsp  = MRSP  ♦ 1 

SETP1170 

JR  = MRSR 

SFTEl  180 

rn  TO  24 

SETFl  190 

32 

NBTP  = NBTR  ♦ 1 

SrTEl200 

JR  = MHTR  * MBSR 

SFTF1210 

3A 

IF  ( JR.LF.NBRMX)  GO  TO  36 

SFTF1220 

WPITE(N6,2006)  JR,  NBRMX 

SFTF1230 

MFLAG2  = NFLAG2  ♦ 1 

S«=TE1240 

r.n  TO  48 

SETF1250 

36 

NABSSI  1,KT)  = KAK  JT,2) 

SETF1260 

NAPSSI  2,KT)  = KAnjT,3) 

SFTF1270 

KBST(KT)  = KBST(KT)  ♦ JR 

SFTE1280 

GO  TO  38 

SFTFlZnO 

37 

JR  » MOn(KflST(KT),lOO) 

SFTF  1300 

IF  (JP.GT.C)  GO  TO  38 

SFTPniO 

FI  = 37.01 

SFTF1320 

WP (TE(N6, 2005)  El,  lOl,  (02,  NB SR , NBTR 

SETF1330 

MFLAG2  = NFLAG2  ♦ 1 

SFTFl 340 

GO  TO  42 

SETFl  i50 

38 

JA  = 12*(KX-1) 

SFTEl 360 

nn  40  j=i, 12 

SFTP1370 

40 

BRAO( JA^J, JR ) = VA1(JT,J) 

SETF1380 

42 

CONT  INUE 

SFTEl 3"0 

44 

FONT  INUE 

SETF1400 

46 

CONT  IMLF 

SFTF1410 

SFT  UP  BLU  JAMMERS 

SETE1420 

48 

lY  « 3 

SFTF 1430 

iDi  * eeicocco 

SFTF1440 

t02  = -l 

SFTF1450 

CALL  RCBnil(BZA,LZ,M2,NCB,KZARL,I01, 1D2 ,1 Y,1XX) 

SFTF1460 

IF  ( IXX.EQ.O)  GO  TO  50 

SFTF) 470 

WRtTF(N6,2007)  101,102 

SETF14R0 

CO  TO  59 

SFTF14R0 

CYCLE  THRU  SYSTEM  TYPES  IN  KBST 

SFTEISOO 

50 

NBJ  » 0 

SFTF15  10 

CO  58  KT»l,NBSS 

SFTF1520 

K « KPST(KT)  / lOOOO 

SFTE1S30 

CO  52  J-  l,LAl 

SrTEl540 

52 

C*** 

54 


56 


57 

5fl 

C*** 

55 


r.  «•« 

60 


61 

C*** 

62 


61 

64 


IF  (K.FO.KAK  J,5n  GO  TO  54 
font imuf 

Gf)  TO  58 

FOUND  jammer  in  CATALOG 
JT  = J 
NBj  = ripj  ♦ 1 

IF  (NRJ.LE.NBJMX)  GO  TO  56 
WRITE(N6, 20081  NBJ,  NBJMX 
NFIAG2  = NFLAG2  ♦ I 
NBJ  = NBJMX 
GO  TO  59 

TP  ANSFFP  JAMMpq  f^AME  AND  DATA.  PUT  POINTER  IN  KBST  . 
NOTE.  FBEO.  = 30000  / XLAMOA  (IN  CM.)  (FREQ.TN  MH7) 
NAB«;S(  l,KT)  = KAK  JT,2) 

NAPSSI  2,KT»  = KAKJT.U 
KRST(KT)  = KRST(KT)  ♦ NBJ 


no  57  J=l,3 
T = 4*  ( J - n 
PJ  AM(  I,  J,NPJ  ) = 
RJ AMI  2, J,NBJ  ) = 
PJAM( 3, J, NBJ  ) = 
PJAM( A, J, NBJ  ) = 
PJAM( 5, J.NBJ » = 
PJAM( 6,J,NBJ  ) = 
CONT  IMUF 


VAU  JT,I  + 3I 
VAK  JT,If4) 

l.F6*(  VAK  JT,I  + 2)-VAl  ( JT,I«-1) 
l.O 

VAK  JT,I  + 1) 

VAl ( JT,I>2) 


) 


SETUP  BLU  SONARS 
lY  = 3 

ICl  = 65100CC0 
ID2  = -I 

GALL  RCBnil(B7A,LZ,M2,NCB,KZARL,I01,I02,lY,IXX) 
IF  ( IXX.FO.O ) GO  TO  60 
WR  ITE(N6,2007)  101,102 


ro  TO  6 8 

CYCLE  THRU  SYSTEM  TYPF  S IN  KBST 


nn  66  KT»1,NBSS 
K = KBST(KT)  / lOCOC 
IF  ( K / lOO.NE.  65)  GO  TO  66 
no  61  J=  1,LA1 

IF  (K.EO.KAK  J,5))  GO  TO  62 
CON  T IN  UF 
GO  TO  66 

FOUND  SONAR  IN  CATALOG 
JT  a J 

NSON  = NSON  ♦ 1 
IF  (NSON.LE.NSONMX)  GO  TO  63 
WPITE(N6,2009)  NSON,  NSONMX 
NFLAG2  * NFLAG2  ♦ 1 
NSOA  = NSONMX 


GO  TO  68 

TRANSFER  SONAR  NAME  AND  DATA.  PUT  POINTER. 
DO  64  I»l,2 
KNAME  * KA1(JT,U1) 

NAPSSI  I,KT)  * KNAME 
NAMSONI I,NSON  ) « KNAME 
KSONTVINSON)  « K*10000 


SFTF1550 
SFTF1560 
SETE1570 
SETE1580 
SFTE1590 
SFTE1600 
SETE1610 
SFTF  1620 
SFTF  1630 
SETF1640 
SETF1650 
SETF1660 
SFTE1670 
SFTE16*>0 
S'=TF169n 
SFTF1700 
SETF1710 
SFTFl 720 
SETF173n 
SFTF1740 
SFTF1750 
SFTFl76n 
SFTF1770 
SFTF1780 
SFTFl 790 
SFTEIROO 
SFTFIBIO 
SFTF1820 
SETFIRJO 
SFTP1840 
SFTEI 850 
SFTEl 860 
SET  PI  870 
SPTFl 880 
SPTF  1890 
SPT  Fl90n 
SPTFIQIO 
SFTF1P20 
SrTF1930 
SETF19<,0 
SFTF  1950 
SFTF1960 
SFTF197n 
SFTFl 9B0 
SFTF199n 
SPTF20m 
SETF2010 
SFTF?020 
SETF20  30 
SFTF2040 
SETF2050 
SFTF2a60 
SFT  F2070 
SFTF2080 
SFTF2090 


KRST(KT)  = K8ST(KT)  ♦ NSON 

SFTE2100 

rn  65  I=l»12 

SETF2110 

t? 

SONSYStF,  NSON)  = VAl(JT,I) 

SFTE2120 

6( 

CONTINUF 

SETF2130 

68 

NRSON  = MSCN 

SFTF2140 

PRINT  rPTION 

SETE2150 

IF  ( IPRINT.lt. 1 I GO  TO  73 

SFTF2160 

KC  = 1 

SFTE2170 

7C 

KO  = KF  ♦ 7 

SFTE2180 

KD  = MINOIKD.NBPI 

SFTE2190 

CALL  PAGE 

SETE2200 

WRITFI N6, 3C0CI 

SFTE2210 

WR ITE( N6, 3C02)  ((J,  NAHRPI 1 « J) ,NAMBP ( 2 ,J I) t J> KC t KO) 

SFTF2220 

WR ITE(N6, 3003)  ( KRP T I J ) , J=KC ,KD ) 

SFTE2230 

rn  72  I=l,NPSS 

SFTF2240 

WR  ITE(N6,  3004)  ( I .NAPSSd.l  ) ,NABSS(2«  I ) tKBSTd  ) » 

SETF2250 

1 (KRPXSI  I.  J )»  J=KCtKO)  ) 

SFTE2260 

72 

CONT IMUF 

SFTF2270 

KC  = KC  ♦ 8 

SETF2280 

IF  (KC  .LF.NBP)  GO  TO  70 

SFTF2290 

73 

IF  ( IPR  INT.LT.2)  GO  TO  201 

SFTE2300 

IFIMPSP.LF.O  ) GO  TO  78 

SFTE2310 

NA*1 

SFTP2320 

NP=NPSR 

SETF2330 

ir=i 

SFTF2340 

IT=1 

SFTE2350 

75 

CALL  PAGE 

SrTF2360 

WR  ITF(N6»6700)  PCOLdC),  ( PR  TPE  ( I , I T)  # I » 1 1 2 ) , (J,  J»NA,K8) 

5FTF2370 

Cn  76  I=lf36 

SETF23BO 

76 

WRITF(N6,670l)  dlRRAOd  ,J)  t J«NA,NB) 

SFTF2390 

IF(  IT .F0.2)  GO  TO  80 

SFTF24nO 

78 

IF( NBTP .LF.O)  go  TO  80 

SFTe2410 

IT=2 

SETF2420 

NA*NP5R  41 

SFTF2430 

NP®MPSR  4NBTP 

SFTF2440 

GO  TO  75 

SFTF2450 

80 

CALL  PAGE 

SFTE2460 

WRITF(N6,6702)  PCOLd) 

SETF2470 

CC  82  1*1,6 

SFTF24P0 

82 

WRITF<N6,6703)  I,  d R JAM d , J ,K)  , J*1 , 3) , K*1  ,2 ) 

SFTF2490 

SETUP  RED  RADARS 

SFTF25O0 

201 

IF  (KRU.LE.O)  GO  TO  590 

SFTF2510 

C«44 

CYCLE  THRU  RED  CATALOG  RADAR  TABLES 

SFTF2520 

lY  * 3 

SFTF2530 

NRTR  * 0 

SFTF2540 

NRSR  » 0 

SFTE2550 

CO  246  KC*1,NRRTT 

SETE2560 

101  ■ KRRTTIKC) 

SFTF2570 

ICTPF«ini/lCOOOOC 

SETF2580 

DO  244  KX«1,3 

SFTE25O0 

102  « -KK 

SFTF2600 

CALL  RCB011(BZA,L2,MZ,NC6,KZARL,I01, I02,IY,IXX) 

SFTE2610 

IF  ( IXX.EO.O)  GO  TO  226 

SFTF2620 

WRITE(N6,2007)  IDl,t02 

SFTF2630 

GO  TO  244 

SFTE2640 

N-  58 


c**« 

CYCl  F ThPU  SYSTFM  TYPES  IN 

KRST  (FROM  ENGAGEMENT  STRUCTURE) 

SETF2650 

226 

rn  242  KT=l,NRSS 

SFTF2660 

K = KPST(KT)  / lOOOO 

SFTE26T0 

FF(K/100  .NE.  lOTPE)  GO  TO  242 

SETF2680 

on  22P  J=l,L4l 

SFTF2690 

IF  (K  .EO.KA  1(  J,5))  GO  TO 

230 

SFTF27nO 

226 

CONT  INUF 

SETF27I0 

GO  TO  24? 

SFTF2720 

C*** 

FOUF’D,  SYSTEM  TYPF  IN  CATALOG 

SETE2730 

23C 

JT  = J 

SETE2740 

IF  (KX.0F.2)  GO  TO  237 

SETE2750 

TRAMSFER  RAPAR  NAMC  and  DATA.  PUT 

POINTER  IN  KRST. 

SFTF7760 

IF  ( IDTPE.NE .35 ) GO  TO  232 

SETE2770 

NRSP  = NRSR  ♦ 1 

SFTF7780 

JR  = NR.  SR 

SFTE2790 

GO  TO 

SETF2800 

222 

NRTP  = NRTR  ♦ 1 

SFTF23  10 

JR  = NRTR  ♦ NRSR 

SFTE2R20 

23« 

IF  ( JR.l  F.NRRMX)  GO  TO  236 

SETF2830 

WR ITF( N6, 2006)  JR t NRRMX 

SFTF2a40 

NFLAG2  = NFLAG2  ♦ 1 

SFTF2850 

GO  TO  248 

SFTE2860 

236 

NARSSI  l,KT ) = KA  l( JT,2) 

SETF2R70 

NARSSI  2,KT  ) = KAK  JT,3) 

SFTF2380 

KRST(KT)  = KRST(KT)  ♦ JR 

SETE2890 

GO  TO  238 

SETF2900 

221 

JR  - MOniKP  stikti,  iooj 

SETF2910 

IF  (JP.GT.C)  GO  TO  23R 

SFT  F2R20 

FI  = 237. Cl 

SETF2930 

WR  ITF( N6,  2005)  FI,  IDl,  ID2 

, NRSR, 

NRTR 

SET  E2940 

NFIAG2  = NFLAG2  ♦ 1 

SrTF2950 

rn  TO  24  2 

SPTF2P60 

236 

JA  = l2*(KX-n 

SFTF2970 

CO  240  J = l,  12 

SFT  F29R0 

24C 

RR  AOI  J A+J,  JR  ) = VAKJT.J) 

SrTF2O90 

242 

CONTINUE 

SETF3000 

244 

CONT  INUE 

SFTPjni 0 

246 

CONT  INUF 

SFTP3020 

C*** 

SFT  UP  RED  JAMMERS 

SFTF3030 

24  6 

lY  =3 

SFTC30^,0 

IDl  = 681CCCC0 

SrTF3050 

ID2  = -1 

SETF306n 

CALL  RCBOll(BZA,LZ ,MZ ,NCB, 

KZARL,I01,ID2,IY,IXX) 

SFTF3070 

IF  ( IXX.Fg.O)  GO  TO  250 

SFTF3030 

WR  ITFIN6, 2007  ) 101,102 

SFTE30«n 

rn  TO  259 

SFTF>inO 

c*** 

CYCLE  THRU  SYSTEM  TYPES  IN  KRST 

SFT  F311  f) 

250 

NRJ  * 0 

sett  R120 

no  258  KT»l,NRSS 

SETF3130 

¥ • KRST(KT)  / lOOOO 

SFTF3 140 

on  252  J»  l.LAl 

SFTE3150 

IE  IK.FO.KAII  J,5))  GO  TO 

254 

SFTE3160 

252 

CONTINUE 

SFTF3170 

GO  TO  258 

SFTP3180 

C*** 

FOUND  JAMMER  IN  CATALOG 

SFTE31O0 

N-  59 


CirfL^i.  .- 


JT  = J 

SFTE3200 

NRJ  s MPJ  ♦ 1 

SETE3210 

IF  (NRJ.l  F.NRJMXI  GO  TO  256 

SETE3220 

WPITE(F'6f  20081  NPJt  NRJMX 

SETF3230 

NFLAG2  = NFLAG2  ♦ 1 

SETF3240 

NPJ  = NPJMX 

SFTE3250 

ro  TO  250 

SETF3260 

C*** 

transfer  JAMMFP  name  ano  data,  put  pointer  in 

KRST. 

SFTF3270 

NOTF.  FPFO.  = 30000  / XLAMDA  (IN  CM.)  (FREO.I 

N MHZ  ) 

SFTE3280 

2'< 

NAPSSI  1,K  T 1 = KA  1(  JT,2) 

SFTF3290 

MARSS(  2,*<  T)  = K Al(  JT,3) 

SFTE3300 

KRST(KT)  = KRST(KT)  ♦ NRJ 

SFTF3310 

rn  257  J=l, 3 

SFTE3320 

I = A^rj  - 1) 

SFTF3330 

PJ  AM(  1,J,NP  J ) * VAl(JT,U3) 

SFTF3340 

RJAM(?,J,NPJ)  = VAl(JT»l4-4) 

SFTF3350 

PJAM(3f  JiNRJ  1 = l.E6*(VAl(JT,I-*-2)-VAl(jT,l>l) 

) 

SFTE3360 

PJAM( 4, J.NPJ 1 = 1.0 

SFTP3370 

PJAM(  5.  JtNRJ  1 = VAKJT.Ul) 

SETE3380 

2‘>7 

PJAM(  6,J,NPJ  ) * VAl(JT,I-F2) 

SFTF3390 

258 

rONT  INUF 

SFTE3400 

C*** 

S8TUP  RFC  SONARS 

SFTE3410 

255 

lY  = 3 

SETF3420 

in  = 85300000 

SETE3430 

102  * -1 

SFTF3440 

CALL  RrROll(B2A,LZ.MZ,NCB,K7ARL  tIDl, ID2f 1Y,IXX) 

SETE3450 

IF  ( IXX.FO.O)  GO  TO  260 

SETF3460 

WR  ITE(N6.200  7)  101,102 

5PTE3470 

GO  TO  268 

SETF34Rn 

C ♦*« 

CYOLF  THRU  SYSTEM  TYPES  IN  KRST 

SFTE3490 

260 

no  266  KT=1,NRSS 

SFTF3500 

K = KRST(KT)  / lOOOO 

SFTP35in 

IF  ( K / ICO.NF.  85)  GO  TO  266 

SFTF3520 

m 261  J*  l,LAl 

SFTF3530 

IF  (K.FO.KAK  J,5))  GO  TO  262 

SFTC3540 

261 

CONT INUE 

SFTE3550 

GO  TO  266 

SFTF3560 

r.*** 

FCUNO  SONAR  IN  CATALOG 

SFTE3570 

262 

JT  = J . 

SFTF35flO 

NSON  * NSON  ♦ 1 

SFTi:3S0n 

IF  (NSON.LF .NSONMX)  GO  TO  263 

SFTF-^600 

WR ITE(N6, 2009)  NSON,  NSONMX 

SFTE3610 

NFLAG2  * NFLAG2  ♦ 1 

SFTF362n 

NSON  = NSONMX 

SFTF36''0 

GO  TO  268 

SFTF3640 

C*** 

TRANSFER  SONAR  NAME  AND  DATA.  PUT  POINTER. 

SFTFJ650 

263 

no  264  1*1,2 

SFTF3660 

KNAME  * KAHJT.I+l) 

SFTE3f,70 

NARSSI  I.KT  ) * KNAME 

SETF3680 

264 

NAMSON(  I,NSON  ) * KNAME 

SPTE3690 

KSONTY(NSON)  ■ K* 10000 

SETF3700 

KRST(KT)  * KRST(KT)  ♦ NSON 

SFTEJ710 

DO  265  I*ltl2 

SFTF3720 

26  5 

SONSYSIIt  NSON)  * VAIUT,!) 

SFTE3730 

266 

rOMT  INUF 

SFTF3  740 

N-  60 


26  6 NR  SON  = N SON  - NR  SON 
r***  PRINT  OPTION 

IF  I IPRINT.LT. U GO  TO  273 
KC  = 1 

27C  KO  = KC  ♦ 7 

KD  = MINOIKO.NRP  ) 

CALI  PAGE 
WRITE! N6, 3C01 ) 

WR  ITFI  N6t  3C02)  KJi  NAMRP  I 1 , J)  .NAHRP  12  t Jll  , J*KCf  KOI 
WP TTEI N6, 3002)  I KR P T( J ) , J=KC f KO) 

00  272  I=1,NRSS 

WR  1TE(N6,3C0A)  ( I , NA  RSS  1 1 , I » ,NAR  SSI 2 , I ) fKRSTd  ) , 

I IKRPXSI  It  J ),  J=KC,KD)  ) 

272  CONTINUE 

KC  = KC  ♦ R 

IF  IKC  .LF  .NRP)  GO  TO  270 

273  IF  I IPR  INT.LT.2)  GO  TO  590 
I FI  MR  SR  .LE  .0  ) GO  TO  2 78 
NA=1 

Nn=NP  SP 
IC=2 
IT=1 

275  call  pace 

WR 1TFIN6, 6700)  PCOLI I C ) t (PR TPE ( I , I T)  1 1 = I 1 2 I , (J t J* N A , NR ) 
CP  276  1=  1,36 

?H  WP  ITriN6,670  n I , IRRAO  (I  , J)  , J*NA,NB) 

IFI I T.eO.2)  GO  TO  280 
276  IFINPTP  .LE.C)  GO  TO  280 
IT=t? 

NA=NP  SP ♦! 

NP»NR  SP  ♦NR  TP 
CO  TO  275 
2PC  CALI  PACE 

WPITE(N6,6702)  PC0L(2) 

CO  282  1*1,6 

282  WP ITF(N6,  6703)  I,  ( I R JAM ( I , J , K ) , J= I , 3)  , K* I ,2 ) 

print  sonar  data 
3Cl  CALL  PAGE 

WP1TFIN6,3006)  NRSON,  NRSON 
Cn  302  I*1,NS0N 

WP ITEI N6, 3CC8)  I,  ( NAMSON ( J , I ) , J=l ,2 ) , KSCNTY(I) 

302  WR 1TFIN6,3010)  ( SON S YS C J, 1 ) , J*1 , LASON) 

59C  IF  (NFLAG2.NE.0)  NFLAG  * NFLAG  ♦ I 
WR  ITF(N6, 2011)  NFLAG 
RETURN 
END 


SFTE3750 
SETF3760 
SFTE3770 
SETF3780 
5FTE3  790 
SETF3800 
SFTE3310 
SETF3820 
SFTF3830 
SFTE38A0 
SET F3 850 
SrTF3860 
SETF3870 
SFTE38R0 
SFTF3890 

SETFjgno 

SFTF3910 
SFTF392n 
SFTE3P30 
SETP3PA0 
SFTE3O50 
SFTF3P6n 
SETF3970 
SFTF3Q80 
SETE3990 
SFT  F4,nno 
SFTEAOlO 
SFTF4020 
SFTF^030 
SFTF^tOAO 
SPTP4050 
SFTP^060 
SCTF4070 
SFTF40flO 
SFTF^non 
SFTE4  mo 
SFTF41  10 
SPTF41?n 
SETFA130 
SFTPA140 
SFTP4150 
SFTF4  160 
SFTFA  170 
SFTCA  180 
SFTFAIOO 
SFTF420n 


SUBROUTINE  SETUPF I 1 PR  I N T) 

C PGM»NXX(NEM).  L.D.G.  VER.2  11 

* TO  SFT  UP  GFNFRAL  DATA  AND  CONTROL 

C 1. TABLE  3110  SHIP  VULN. 

C 

C CALLED  BY  MAIN  AND  ZIP  CARD  AS  FOLLOWS 


SFTFOOIO 

28-73  FORTRAN  IV  FPCO  SFTF0020 

SFTPOnOO 

SETF0040 

SFTFOnSO 

SETF0060 
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^■^prv 


c IP  e 


i . 

Cl^7^ 


L. 

2, 


CNaviG 

1 

2 
3 

5 

CPL  IT 

1 

2 

3 

4 

5 

GMSLSYS 

1 

2 

CWCPK 

1 

2 

3 

CZZSYS 

1 

CSa^iL  T 

1 

C S « SY  S 
1 

CRACAP 

1 

2 
3 

CK  ILL  F 

1 

2 


fe  P SET  UP  MISCELLANFCUS  DATA 

roMMoK /n^VlCP/  N1 ,N2iN3,N4tN5fN6tN7tN8fN9,Nl0 .Nil ,N12 
IvnUT/NLINE  ,NPAGE,DUMA(35)  , NCOnEI  19) 

ICUf'R(72).  NFLAG,  NFLAG2 

INTEGER  TITLA 

rriMMUN/CZ  Az  A/NCBA,  IDAl,  IOA2,  IOA3.  JZARL  .LZA  .MZA.ICAI  16)  ,r,A(  16) 

T I TLA ( 15 I.HEAPAI 37) , IFMT 
LAl,LAAl,MAl,MAAl,KAl(27,5).VAl(27.12) 

DIMENSION  BZAI  555) 

FQOIVALENCF  (NCPA.BZAI  1)  ) 

DATA  NCB.l  Z.MZ.LA.MA/  1.555,12.27,12/ 

rOMMON /CN  AV I G/  NGM  X , PE , BF , RE , RF , 

NPG,  PA.BB.BC .BD.KBGNI 18) .KBGKIl 8)  .BGC(  8 ,6 , 18  ) ,NRU I IB ) , 
NPG,RA.RR,RC,RD.KRGN(18) .KRGK(18) .RGCI  8.6 .18  ) .NRU( 18  ) . 
TTIME.NOMX, 

KPU.KBUKIA. 50). BREL  I A. 50) .B X YZ ( 50 . 7 ) . NA MBU I 50 . 2 ) . BV ( 50. 8)  , 
KPU.KRUK I A. 50) ,RREL(A,50) ,RXYZ(50 .7) ,NAMRU(50  .2) ,RV( 50, 8) 

VS  SYSTEMS  (SUBSYSTEMS) 

rnMMON/rPLAT/NPP  ,NRPMX,NBSS,NBSSMX,NBSPP( 15)  .NBPWS (A5 ) . 

NAMBPI 2.  15),KBPT(  15),NABSS(2,A5) ,KBST(A5)  .KBPXS (A5 .15)  , 
PPXI(12,  15). 

NRP.NRPMX.NRSS.NRSSMX.NRSPPf 15) ,NRPWS(A5) . 

MAMPP( ?, 15), KRPT( 15) ,NARSS(2.A5) ,KRST(A5) .KRPXS (A5, 15) , 

PPXK  12,  15) 

16  2 2 6 6 2A  50 

CDMMnN/CMSLSY/  NM SL . NMS L MX . NB SSM ,NB ASM, NR SSM, NR AS M . L AT  MS L , LT R A J . 
NAMMSL  ( 2,  16  ) .KMSLTY  (16)  , 

OATMSLI 2A.16),  TTRAJ(50,16) 

rOMMON/CWORK/ 

LWl.MWl.LAWl.MAWl,  KWl(27.5),  VWl(27,l2), 

I W2,MW2,L AW2,MAW2,  KH2(27.5),  VW2(27.12). 

I W3.MW3,L  AW3.MAW3,  KW3(27.5),  VW3(27,12),  PADWdll) 

25  11  12  15 

rnMMnN/CZZSYS/MZ7SYS,NZZSMX,NBZSYS.NPZSYS,LAZZ,NAMSYS(2.25 ) , 
KZ7TYP( 25),ZZSYS( 15,25) 

8,12,15, 

COMMON /rS AML T/L ,M,N,RMN( 15) ,RHX( 15) ,EMN( 15 ) ,EMX (1 5 ) ,2MX ( 15 ) , 
XMX(15),  RT(8, 12,15) 

15  A A 2 A 20 

COMMON/rSASYS/  N SA S Y S, NSA SMX .NBGUN , NBS A M, NRGUN, NRS AM,  L AS  A , 
NAMSA(2, 15) ,KSATYP( 15),SASYS(20,15) 

COMMON /CR AO AR/NBSR ,NB TR , NBRMX ,NB J , NB JMX , 

BR An(36, 17),PENV(6,2) ,RETC(A,2) ,BrAR(6,3) ,BJAM(6,3,2), 
NRSR,NRTR,NRRMX,NRJ,NRJMX, 

PR  AD( 36,  15),RENV(6,2) ,RETC(A,2) ,RTAR(6,3I  ,R JAM(6,3,2) 
COMMON/INOUU/  IPR ( 16) ,JPAR( 16) , PAR( 16) , LABEL 

COMMON /CK ILLF/LVSHP .MVSHP .NVSHP , VULSH P ( 5 , 12 ,1 ) ,NU6,NUNMX, 

KSTATFI 100) ,PK LAST! 100) ,PPROD( 100) ,CUMWT ( 100) , VULCSTf 100) , 
VUKlLL(in0),VHKlLL(100),VULFS,VULFA,VULFM 


SETF0070 
SFTF0080 
SFTF0090 
SFTFOIOO 
SETFOI I 0 
SFTF0120 
SETF0130 
sftcoiao 
SFTFOl 50 
SETF0160 
SFTFOl 70 
SFTFO 180 
SFTFO  190 
SFTF0200 
SETCOZIO 
SFT  FO220 
SETFO230 
SFTF02AO 
SETF025P 
SFTF0260 
SPTFO270 
SFTFO2B0 
SFTF0290 
SFTFOTOO 
SFTC0310 
SFTF0320 
SFTF0330 
SFTF03A0 
SFTF0350 
SETF0360 
SFT  rO370 
SFTF03HO 
SETF0390 
SFT  FOAOO 
SETFOAIO 
SFTF0A20 
SFTF0A30 
SrTFn^,AO 
SFTCOASn 
SETF0A60 
SFTF0A70 
SFTFOARO 
SETF0A90 
SETFOSOO 
SFTF0510 
SETF0  5 20 
SFTF0530 
SFTFOS^O 
SFTF0550 
SET  F0560 
SETF0570 
SFTF0580 
SFTF0590 
SFTF0600 
SETF0610 
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d 


CHCMFR  SFTF0620 

COMMON /CHOMFR/  NHOM , NHQMMX , NA MH CM( 2 t I 0 ) t KHOMT Y ( 10 ) , OAT HOM { 36, 10)  SFTP0630 
CFOPMATS  SPTF0640 

20Ct  FOPMAK  IHCf  •Nn.HPMINr,  RADARS='fIA,',  FXCFEOS  STOP  AGE=*  t 14/ ) SETF0650 

2007  FORM  at  ( IHO,  'NO  TABLE  FOUNO  FOR  IDl,  I02='t  2110)  SFT(:0660 

2CC8  FORM  AT(  IHCf 'DATA  MISSING  FOR  HOMING  RADAR  TYPE**,I'>/)  SETF0670 

2011  FORM  ATI  IHO, • AT  ENO  OF  SETUPF,  CUM  NO.  SETUP  ERRORS=NFL AG= • , 15 ) SFTF06R0 

201?  FORM AT(6X, 'NO.nF  CRUISF  MISSILE  HOMING  RADAR  TYPES*', 14)  SETF0690 

2013  FORM  ATI / IX,  I6t ,2A4, I S,4X, 'HOMING  RADAR  DATA')  SETF0700 

2014  FORM  ATI flX,  10G12 .5 ) SFTF0710 

K7APL  = 96  ♦ LA*I5  ♦ MA  ) SETF0  720 

JZARL  = K7ARL  SETFO730 

NFLAG2  = 0 SETF0740 

LVSHP  = 5 SFTFO750 

MVSHP  = 12  SFTF0760 

NVSHP  = 1 SFTF0770 

IOC  lY  = 3 SFTF0780 


kTRAN  = 1 
ini  = 311000CO 
102  = -1 

c***  R EAP  FRPH  DISK  11 

102  call  Pr.BD  1 1 IB  7A  , L7f  MZ,  KCB,KZ  ARL,I  01 , 102  ,IY,  IXX  ) 

IF  I IXX  .FO.  0)  GO  TO  1104,104,104),  KTRAN 
WRITEIN6,  2007)  101,  102 
NFLAG2  = NFLAG2  ♦ 1 
Cn  TO  11  10,900,900,  KTRAN 
104  on  106  1=1, LVSHP 
on  106  J=l, MVSHP 
ice  VUL  SHPI  I,  J,  1 ) = VAK  I , J) 

IF  I IPRIMT  .LT.  2)  GO  TO  108 
CALL  PAGF 

CALL  WMAT3I 2,  I CA, VUL  SHP, LVSHP, MVSHP, NVSH P, LVSHP, MVSHP,  1, NL INF, 
1 60HVULNFRABILI TY  DATA,  NONNUC  , SHIPS  ) 

lOP  rONTINUE 

C***  SETUP  CRUISE  MISSILE  HOMING  RADARS 
no  NHOMMX  = 10 
NHOM  = 0 

INMSL  .IE.  0)  GO  TO  900 
KH  = 0 

ro  112  MT=1,NMSL 
KHT  = OA  TMSL  I 1 1,MT  ) ♦ .1 
IF  IKHT/10.NE.874)  GO  TO  112 
KH  = KH  ♦ 1 

KHOMTYIKH)  = KHT  * 10000 
112  CONTINUE 
WHOM  * KH 


SFTFn790 
SFTFOBOO 
SFTPOB  10 
SFTF0820 
SFTF0B30 
SFTF0840 
SETFORSO 
SFTFnR6n 
SETFORTO 
SFTF0B80 
SFTFORPO 
SFTF0900 
SFTFOOl 0 
SrTF0920 
SET  FOqjO 
SETF0940 
S''TF0950 
SFTF0960 
SETF0970 
SETFOPBO 
RFTF0990 
SFTFIOOO 
SFTFlOlO 
SFTF1020 
SETFlOiO 
RFTF1040 
9FTF 1050 
SFTF 1060 
SETF1070 


IF  I KF.GT  .0  ) GO  TO  114 

MHOM  s 0 

GO  TO  142 

ll<  CALL  KORDER(KHOMTY,NHOM) 

CALL  UN10UF(KH0MTY,NHnM,K) 

NHOM  = K 

IF  ( NHOM .LE. NHOMMX)  GO  TO  116 

WR  ITFI N6, 2006)  NHOM,  NHOMMX 
NHOM  s NHOMMX 


SFTFlOflO 
SFTFIOOO 
SFTF 1 100 
SETFl I 10 
SFTF1120 
SFTPl 130 
SFTFl 140 
SFTFl 1 50 
SFTFl 160 
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NFLAC-2  = NFLAG2  + 1 

SETFl 170 

lit 

ro  118  1=1,36 

SFTF  1 180 

rn  118  J=1,NH0MMX 

SETFl 190 

Ilf 

rATHnM(i,j)  = .c 

SFTF1200 

lY  = 3 

SETFIZIO 

rni  = 87  100000 

SFTF1220 

m 132  KY=1,3 

SFTF12-'0 

1 02  = - KX 

SFTF 1240 

CALL  PCRnil(P7A,LZ,MZ,NCB,KZARL,IDl, ID2,I Y,I XX) 

SETF1250 

TF  ( IXX.FQ.O ) GO  TO  120 

SETF1260 

WP 1TF<N6, 2007)  101,102 

SFTF1270 

MFl  AG2  = NFL AG2  ♦ 1 

SFTF1280 

NHOM  = 0 

SFTF1290 

GO  TO  1^,2 

SFTF1300 

r*** 

MATCH  L TRANSFER 

SFTF1310 

12C 

on  130  KH=l,NHnM 

SETF1320 

KHT  = KHOMTYIKH)  / lOCOC 

SFTF1330 

ro  122  KR=  l.LA 1 

SFTF1340 

KRT  = KAKKR  ,5  ) 

SFTF1350 

IF  (KHT  .FO.  KRT)  GO  TO  124 

SETFl 360 

122 

CONT INUE 

SETF  1370 

WR ITEl  N6,  2C0f ) KHT 

SFTFITOO 

KHOHTY(KH)  = -1 

SETF1390 

MFLAG2  = NFLAG2  ♦ 1 

SFTF1400 

CO  TO  130 

SETF1410 

12<. 

KL  = KP 

SFTF 1420 

IF  (KX  .GT.  1)  GO  TO  126 

SFTF1430 

NAMHnM(l,KH)  = KAl(KL,2) 

SFTF1440 

NAMHnM(?,KH)  = KAl(Kl,3) 

SETF1450 

126 

JA  = 12*(KX  - 1) 

SETF1460 

on  128  J=l,12 

SFTF14,70 

126 

rATHnM(JA+J  ,KH  ) = VAKKL.J) 

SFTF  14,90 

13C 

CONT INUF 

SETF1490 

132 

FONT INUF 

SFTF  ISOO 

€*♦♦ 

BACKFILL  POINTERS  IN  CRLISE  MISSILE  = KRST(  ) 

SFTF1510 

on  140  KS=l,NRSS 

SFTFIS20 

KST  = KRST(KS) 

SFTFl 530 

KTFST  = kst  / icnonoo 

SF  TF  1 54,0 

IF  (KTEST.NE.96  .ANP.  KTEST.NE.98)  GO  TP  140 

SFTF 1550 

MP  = MDP(K  ST,  100  ) 

SFTF155) 

KHTP  = PATMSL(  1 1,MP  ) ♦ . 1 

SFTFl 570 

Pn  136  KH=l,NHnM 

SFTF15Rn 

KHT  * KHOMTYIKH)  / ICOOO 

SETF1590 

IF  (KHT  .EO.  KHTP)  GO  TO  13fl 

sftfksoo 

136 

CONT  INUF 

SFTF1610 

CO  TO  140 

SFTFl 520 

138 

KRST(KS)  = KBST(KS)  ♦ KH*100 

SFTF1630 

14C 

CONT  IMUE 

SFTF  1 54,0 

PRINT  OPTIONS 

SETF1650 

142 

IF  1 IPRINT.lt.  1)  GO  TO  150 

SrTFl560 

CALL  PAGE 

SFTFl 670 

WR ITFI N6, 20  12)  NHOM 

SFTF16P0 

IF  (NHOM.LE.O)  GO  TO  150 

SFTF1690 

on  144  1 = 1, NHOM 

setf  iroo 

WP ITFl N6, 2013)  1,  I NAMHOMI K , 1 ) , K=  1 , 2 ) , KHOMTYII) 

SFTFIZIO 

N 
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IF  ( IPP.  IMT.lt.  2)  GO  TO 
WR I TF( M6, 20  14  » (Oft THOMIK  ,I » ,K=1 ,36) 
144  rONTIMUF 
150  COMTlNUr 

«5CC  IF  (NFL*G2.NE.  C)  MFl  AG  = NFL  AG  + l 
WR 1TE( N6, 201  1)  NFIAG 
PFTIIRM 
END 


SETF1720 
SFTF1730 
SETFl  740 
SFTFI 750 
SFTFI 760 
SETF1770 
SFTF1780 
SFTFI 790 
GETFlflOO 


SUBROUTINE  IJGHFK  ( KOOE  ,N5,N6) 

C NFM  UTILITY  CHECKER.  5 NOV  73 

C KOCF  IS  ZIP  rnOE,  USFO  to  call  uchek  as  follows 


CIP 

c 

c 

r 

c*** 


A B 
A 

A = 


1 f 

2, 


NAV  IG  OFK 
DAPAP  CHFK 


B 

B 

B 


1 , 
1, 
2. 


CALL  UCHEK 

NO  READ  NUCHEK.  * 2,  READ. 
ONE  RAOAR.  SINGLE  TARGET 
PUN  ENGAGEMENT  LIST.  SINGLE 


-1. 


1 

C*** 

2 


10 


C 

52 


riMFNSIOM  KODE  ( 19)  ,T1ME  S(  10) 
OATA  NT  IMPS, TIMES/  2,  -2., 

A' AM  EL  IST/NUCHEK/NTIMES, TIMES 
K2=KnOE(2) 

K3=KnnE( 3) 

K4=KPnF ( 4 ) 

cn  TO  ( 2,  52,  52),  K3 

MAV IG  CEFK 

IF  ( KOOF  (4  ) .LF  . 1)  GO  TO  6 
R FAO  (N5, NUCHEK  ) 

WR  ITF( N6, NUCHFK  ) 

IPPINT  = 1 
GO  10  I=l,NTIMES 
T IMF  = T IMFSI I ) 

•pall  all  XV7(TI mf ,I PRI NT,N6,I XX) 
CONT  INUF 
R:  TURN 
RADAR  CEFK 

CAM  PAnCK(K4,N5,N6) 

RETURN 

END 


8*0.  / 


UCHKOO  10 
ur.HK0020 
UCHKOOTO 
urHK0040 
ur.HK0050 
UGHK0n60 
TARGET  UCEK0070 
UCHKOOfiO 
UCHK  0090 
IlCHK  01  00 

uchko  1 10 

UCHKO  120 
UCHKO  1 30 

UCHKO 140 
UCHKO  ISO 

UCHKOlbO 
UCHKOl  70 
UCHK  0 I RO 
UCHKOIDO 
Ur  HKO  20  0 
UCHKO?  10 
IlCMi^  022  0 
UCHK  0230 
UC.HK  02  4 0 
UC  EKO  7t,3 

IICHK0  26  ) 
UC  HK0270 
UCHK02BO 
UCHK  0290 


c 

r 

c 

c 


subroutine  RAnCK(K4,N5,N6) 

NEM  RADAR  CHECKER  5 NOV 

K4  = 1,  single  radar 
K4  = 2,  PUN  FNGAG.LIST.  SINGLE 
K4  « 3, 


73 


TARGE  T 


CPL  AT 


VS  SYSTEMS  (SUBSYSTEMS) 

COMMON/CPL  AT/NRP,NPPMX,NBSS,NBSSMX,NflSPP( 15) ,NBPWS(45) , 
NAMBPI 2,  15), KBPT( 15) , NAB  SSI  2,45) ,KBST(45) , KB PX S ( 45 , 1 5 ) , 
BPXK  12,  15), 

NR  P,NRPMX,NRSS, NRSSMX,NPSPP( 15)  ,NRPMS (45 ) , 
MAMPP( 2,  15  ) ,KRPT(  15) ,NARSS(2,45) ,KRST(45)  ,KRPXS (45, 15) , 
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P ADI-  00  n 
"ADKOOpO 
P ADKOOTO 
R ADk  0040 
PAOKOnsO 
R ADK  0060 
PADKOOTO 
RArKOORO 
RACK  OOOO 
RACK  01 00 
RACK  01  10 


I 


5 KPXl(l2tl5) 
rpacAR 

CHMMrN/CP ACAR/NBSPfNBTR, NBRMX ,NBJ,NBJMX, 

1 BP  APf  36,  17),BENV( 6, 2) , BE TC ( «,2 » ,B TAR (6 ,3 ) «BJAM(6,6) , 

2 NRSR,NPTR,NRRMX,NRJ,NRJMX, 

3 RR  API  3 6, 15  J,RENV( 6,2) ,RETC (^,2» ,RTAR(6,3) ,RJAM(6,6) 
PIMENSIOM  RANGE!  10),  TRAD  (10)  ,PD(  10)  ,ANG(10)  ,DYNC10) 

NAMFLIST  /NAMl/  1RB,KTYP,1RNG, TRAD, RANGE, PENV,RENV,BETC,RFTC, 

1 PTAR,PTAR,RJAM,RJAM,  (PRINT, ISTOP 

NAMFL  I ST/NAM2/  IPR,KTYP,  IRNG, (PRINT,! STOP 
NAMFL  IST/NAM3/  KTYP.IRNG 
(STOP  = 0 
TPAr(  I ) = 0 . 

1 ITST  = 0 

TALL  PAGE 
REAP  (N5,NAMl) 

WR 1TE(N6,NAM2) 

C ro  TO  ( 4,  , ),  K4 

4 (PR  (NT  = 2 

a TH  ( 10,  20)  , I PR 

C**  S INPL  F R APAP 

10  RHOR  = l.  228‘5*{SQRT(PETC(l,l))  ♦ SORT  (PT  AR  (3 , 1 ) ) ) 

IF  (PANGFI  D.GT.RHOR)  RANGE!  1 )*RHOR 
no  12  I=1,NBSS 
K = KPST! I ) / lOOOO 
IF  IKTYP  .FO  . K ) GO  TO  16 
12  CONTINUE 

14  IF  ! ISTPP.GF.l ) RETURN 

GO  TO  I 

16  K = MOniKBST! I ), ICO) 

WR  1TF(N6,NAM3) 

NNOPF  = BRAD ( 36,K)  ♦ ,1 

BETC(4,  1)  = NMOOE 

PFLP  = PTAR(4,1)  / BRAD(21,K) 

IF  !NMnDF.F0.2)  DELR*  RTAR(4,l)  / 50. 

17  CALL  P APAR! BRAD! 1 , K ) , BENVil , I ) , BE TC ( I , 1 ) ,RTAR( I ,l ) ,RJAP! 1,1), 
1 TR An,R  ANGE,PO,ANG,DYN, I TST, I RNG , I PRINT) 

IP  (RANGE!  1 ).LF  .DFLR  ♦ 2.)  GO  TO  14 
PANGPI  1)  = RANGE!!)  - DELR 
IPPINT  = 1 

TRAD!!)  = TRAD!  10)  ♦ TRA0(2)  - TRAD!!) 

GO  TO  17 

20  RHOR  = 1.22eS*(SQPT(RFTC ( 1, 1) ) ♦ SORT ( BT AR (3 , I ) ) ) 

IF  IP ANGE!  I ) .GT  .RHOR ) R ANGE ! 1 ) -RHOR 
GO  22  I=1,NRSS 
K = KP  ST!  I ) / ICOOO 
IF  (KTYP  .FO.  K)  GO  TP  26 

22  CONTINUE 

GO  TO  14 

26  K * MCir(KRST!  I ) ,100) 

WR  ITE!N6,NAM3) 

NMODE  = RRAO(36,X)  ♦ .1 

RETC!4,l)  - NMODE 

CEIR  - BTAR(4,l)  / RRAn(21,K) 

IF  (NMODE. EO. 2)  DELR-  RTAR(4,1)  / 50. 


RADK0120 
RADKO 130 
RADKO 140 
PAOKOISO 
RAnK0160 
PADK0170 
RADK0180 
RArK0190 
PA0K0  200 
R ArK0210 
RACK0220 
PADK0230 
BAnK0240 
RAnK0250 
BAnK0?60 
RAnK0270 
R ACK02e0 
P ArX029n 
R ACK0300 
R AC<  0310 
RA0K0320 
R AnK0330 
RArK0340 
pAOKOosn 
R ACK0360 
RA0K0370 
P ACKOSRO 
RAnK0390 
RAnK0400 
R ArK04 10 
R ArK0420 
P.  ArK0430 
PACK  0440 
PAOKOASO 
R Ar)K0460 
RA0K0470 
PA  OK  04  BO 
PAOKOAOn 
R AOKOSOO 
RADKOBIO 
RADKOSPO 
R ADKOS  JO 
P ACK0540 
R A OK  05  5 0 
RACK  05 6 0 
RADK0570 
PAnK05flO 
P APK05R0 
RAnK0600 
RACK  06  10 
R AnK0620 
R AW  0630 
P ADK  0640 
RAnKn650 
P ADK0660 
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nor)  non 


2T  fill  F AnAR(RPAn(  I ,K) ,PENV( I tl) ,RETC(l ,H ,RTAR( I ,l  I ,B JAM(  I , U , 
I TPAT.P  AMGF.PO.ANG.nYN,  ITST,IRNG,IPRINT) 

IF  (PANrr-i  d.le.dfip  ♦ 2.)  r,o  to  u 
RANGE!  n = RANGE!  I ) - DEEP 
IPPINT  = 1 

TPAH!!)  = TRAP! 101  ♦ TRAO(2»  - TRAOll) 

GO  m 27 
FNO 


RA0K0670 
RAOKOfeRO 
PAOK  06<10 
PADK0700 
PAnK0710 
PA  CKO  7 20 
PA  OK  07  00 
p ATKO  r^o 


SUPPOdTir'F  XFCUTF 

CNAVIG 

roMMON/CNAVl G/  NCMX ,PE,BF,RE,RF , 

1 NPG, PA, PP,PC .BD.KPGN! 18) fKBGKl I 81  f RGC!  8 t6 , 18  I »NBU ( 18 ) , 

2 NPn,RA,Rn,RC,Pr),KPGN!  18),KRGK!  18)  ,PGC!  8 ,6 , 18  ) »NBIM  18  ) , 

? TTIMEfNliMX, 

KPUfKPUK!4,50),RRFL(^.50)  ,RXY7(50,7)  , NAMBU  ( 50  t2  ) f 8V  ! 50 , 8)  , 

5 KRU,K,RUK!^f  50 ) ,PP  EL  I A,  5 0 ) ,R  XYZ  1 50  1 7 ) ,NAMRU  (50  i2)  , RV!  50, 8) 

COMMON/ CFV  IGF/  N 1,N2,N3,N<»,N5,N6,N7,NR,N9,N10,NII  ,N12 
common/stpcon/  JPK,IPK 

COMMON/ TMFO/  L ENIFn,LFN5EG,MAXSFG,NFXSFG,LSTSFG,l  ZGSFG 

COMMON /FX  STOP / L FN  SYS.MA  XP TU, MAXBTU , LF F TO S ,NRTU, NBTd , I RRS ,NPHAS  F 

tff  following  two  statements  aojust  the  amount  or  storage 

avatiarle  to  the  program  for  oynamig.  allocation. 

r IMFNSION  STORF  u 15000  ),  I STORK  15000) 

CATA  LO  IMFN/  15000/ 

FCUIV  AL  FNG.E  ( STORF  I ( 1 ) , I STOR  I ( 1)  ) 

TFF  MIF.'IMIjM  OIMrNSION=LDIMEN,  FOR  ARRAYS  STORFl  ANR  ISTCPl 

IS  OIVFN  RY 

LD  IMFM  = !K  8U>KRU)*(NSYSPU*'8*NSEGPU  ♦ 5)  ♦ 1 3 * ( MAXB  TU^maXRT  d ) ♦ 1 2 8 

riMENSION  NAME! 2 ) 

rata  name/ 'STOR • , 'FI  •/ 

RATA  KBUSEGfKRUSEG-,!  TPSEG,  I TB SFG  , I NF0RM/5*0/ 

FATA  LBPSYS,LBSYST,LRSYST/3*0/ 

RATA  IPTU,  ip.tu,iruxyz,ibuxyz,invrtu,invrtu,ipstat,  ipstat/r*o/ 
NAMFLIST  /RIMFNS/  LENSFG,NSFGPU,NSYSPU,MAXPTU,maXBTII, 

1 lrimfn.ksave.nphasf 

KSAVF»0 
NPHASE=0 
IPK=  10000 
JPK=1000*TPK 
GO  100  I=l,LniMFN 
ICO  ISTOP  1!  1 )=0 

ISTOR  1!  1)=NAME(  I ) 

ISTOP  11 2)=NAMF( 2 ) 

ISTOR  11 3)=LPIMEN 
ISTOP 1( A)=  10 
ISTOR  1(5  )*L0  IMFN 
ISTOP  l( 6)=0 
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XCCdOOlO 
X ECU 00 20 
XEGd0030 
X FrijOOAO 
XFG.d0050 
XFCU0060 
XFrd0070 
XFCdOORO 
XECdOOgO 
xrnjoiOO 
XFCdOl  I 0 
X FCd  OlZO 
XFCdO 1 30 
XFGdOlAO 
XFGdO  150 
XFG'IOlbO 
XFGU0I70 
XFCUOl RO 
XFCdonO 
XFGdOPOO 
XFCd02l0 
X F^doaro 
X FrijO230 
XFCdO?AO 
X FCd0250 
XFrdO?60 
XFri|(3770 
''FGd02P0 
XFCU02QO 
XF'-dOTOO 

xrcdoilo 
XF  Gd0320 
xFrti03  30 
)(FCdO3A0 
xcrd035O 
xrr'j0360 
xFGdO'X7P 
X FCdOAflO 

XFGdOTOO 

XFC.dOAOO 
XFCdOA  10 
XFCd0A?0 
XFGdOAXO 
XFCdOAXtO 


ISTDP  l(  7)=10*  IPK-»5 
MAXPTU  = KHII 
MAXRTU=KPU 
L FNSFr,=  fl 
NSYSPU=  10 

INPUT  STOPAGF  ALinCATION  PARAMETFRS 
CALI  PAGF 
RFACIN5,01WENS) 


X ErU0<*50 
XFCIJ0^60 
XFCUO^TO 
XFC'IOARO 
XFCU0490 
XFCUOSOO 
X ECUOSIO 
XPCII0520 


JRU=KRU-»MAXRTU 

JPU=KHU+MAXBTU 

IPU=2*KPU>11 

I0U=2*KPUi-ll 

MAXP  T2=2*M  AXRTIJ 

»'AXRT2=2*MAXRTU 

LrNSYS=(KPU*KRU) *MSYSPU 

LE\IFO  = LnHFN-13*(NAXRTU  + MAXRTU»-(NSY5PU+5l*(KBU+KRUI-l28 
IF( L FM I FP.GT  .9909)  LENIF0=9q99 
IFILFN  IFP.LT.l)  LFNlFn=l 
NSEGPU=LFNIFO/( LENSEG*(KRU*KBU)) 

WPITF(N6,niMFNS) 

PAXSFG=LFNIF0-LENSFG-H 

NFXSFG=0 


XFCU0530 
X FCUOSAO 
XECtJOBSO 
X Erun560 
V FCIJ0570 
X Fruo5flO 
XFCU0590 
XECUOftOO 
XECU0610 
XPri/0620 
XFCIJ0630 
XFCIJ06<.0 
XFrU06S9 
XFCUn660 
vFriJ0670 


LSTSFG=  1-LFN9FG 

IFIK  RUSEG.LE.O)  CALL  SF  TO  S ( KBU  SEG  , I STOP  I , • KRUSEG 
IFIKRUSEG.L E.O)  CALL  SFTD S( KRUSEG , I STORl t * KRUSEG 
IF( ITPS FG.LF.O)  CALL  SE TO S ( I TR SFG , I STOR 1 , • I TRSEG 
IF<  ITBSFG.LF.O)  call  SETDSdTBSEGfISTORl.MTBSFG 
IF! LPSYST .LF .0)  CALL  SFTOS( LBSYST, I STORl LBSYST 
IF(LPSYST.LF.O)  call  SETDS(LRSYST,IST0R1 t’LRSYST 
IF(  IRTU.l  E.O)  CALL  SETOS  ( IRTU  tl  STORl  , • I RTU  • tO  , 

IF(  IPTU.L  F.O)  CALL  SF  TO  S(  IB  TU  1 1 STORl  , • I BTU  'tO, 

IF(  IRUXY7 .LE .0)  CALL  SETOSl IRUXYZ,! STORl , • RTUXYZ 
IF(  IRUXYZ  .LF.O)  call  SETDSI IBUXYZ.l STORl ,• BTUXYZ 
IF(  INVPTU.L F.O)  CALL  SE TO S( I N VRTU, I STOR I , • 1 NVRTU 
IF(  INVBTU.LF.O)  call  SET0S(  INVBTLtI  STORl  t*  INVBTU 
IF(  IRSTAT.LE.O)  call  SETOSI IRSTA T,IST0R1 f* irstat 
IF(  IBSTAT.lF.O)  call  SFTDS(IflSTAT,ISTORl t'lBSTAT 
IF( I BRSYS.L E.O)  CALL  SETDSI LBR SYSt I STORl t 'LBRSYS 
IF(  INFORM  .LF.O)  CALL  SF  TO  S(  I NFORM,  I STORl  t * I NFORM 
KPUSG« I STORl (KRUSEG) ♦! 

KRUSG=ISTnRl(KPUSFG)4-l 
ITBSC,*IST0R1(  ITBSEG)  + 1 
ITRSG*IST0R l( ITRSFG)+l 
INF0R*IST0R1(  INFOPM)*l 
KPRSYS*IST0P  l)LflRSYS)«-l 
LRSYS»1 STOR I ( LBSYST) ♦! 

LPSYS«1ST0RI (LRSYST)^l 
IRT1«ISTPR  l(  IRTU)*1 
IPT1«  ISTOR 1(  IBTU )♦! 

IPUXYl*»*oc(  ISTOR  1(  IRUXYZ  ) 1 1 0000)  + 1 
IPUXYl*Mnn(  ISTOR  1(  IBUXYZ)  f 10000)«-1 
INVRT1«IST0P  l(  INVPTUI+l 
INVBT  1«  ISTOR l( INVPTU)  + l 
IPSTAl- ISTOR  KIRSTAT)*! 


•,0,KWJ,  0,0) 

•,0,KRU,  0,0) 

• ,0 , JRU ,0,0) 

• ,0, JRU, 0,0) 

• ,0, IBU,0,0) 

• ,0,IRU,0,0) 
MAXRT2,0,0) 
MAXBT2,0  ,0  ) 

• ,l ,R ,MAXRTU ,0  ) 

• tl  ,8,MAXPTI),n) 
•,0,MAXRTU,0,0) 
• ,0,MAXPTU,0,0) 
',0, JRU, 0,0) 

• ,0 ,JBU,0,0) 


XFrU06R0 
xpr.uo69o 
XPCUOZOO 
XFCIJO710 
XFru0720 
XFCU0730 
X FCUOTXfO 
xrruoZSO 
X ECU  0 76  0 
XFCU0770 
XPP'jn7P0 
XFCU0790 
X FCUOPOO 
XGCU0810 
X pri/OR?o 


',0tLENSYSt0,0)  XFCU0P30 
• ,0,LENIFn,0 ,0 ) XFCUOBAO 
xFC.uoaso 
XGruO360 


X FCU0ri70 

xrnjoHeo 

XFCU0890 
X FCU0900 
XFriio9io 
XECU0920 
XECU09  30 
XECUnOAO 
XFCU0950 
XFCU0960 
XFCU0970 
XPru0980 
X FCU0990 
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> IjJ  IVJ 


IPS  T A 1=  ISTdR  UIRST4T)*l 

CALI  FNCA.GF(  ISTOR  KKPUSG)  flSTORl  ( KRUSG)  ,I  STORl  UTRSG)  , 

I ISTPRK  ITR  SG  )f  ISTOR  I ( INFOR»  , I STORl  (KBRSYS)  , I STCR  I ( LRS  VS  ) , 

IST^RK  LR  SY  S>t  I STOP  KIR  Tl  » fl  STORl  ( I B T1 ) , STORE  1 11  RUXYl  ) , 
STPRF  1(  r HUY  vn,  ISTHR  l(  INVRTI)  ,I  STORI  (INVBTI  ) , 

ISTPR  niRSTAl  ) , I stork  IBSTAIJ) 

LFFTr'S=  IS  TOP  1 ( 5 )- 1 STOP  I ( A ) 

LFSS=LFFT0S 
I TU*KRU*K  Rl) 

LSYSPU=(LENSYS-IPP S)/ITU 
KSYSPU=NSY  SPU-L  SYSPU 
LFSS=LESS+LSYSPU*ITU 
LSFGPU= (MAXSFn-LSTSFGI /I ENSEG/ITU 
NSECPU=NSEGPU-LSFG0U 
1 FSS=LFSS*LSFGPi;*lTU*LFNSEG 
IF(MRTU.EO.n)  NPTU=1 
IFINRTU.EQ.C)  NR  Tl,’=l 

I FSS=LFSS^13«'(MAXPTU-NPTU*MAXRTU-NRTU) 

yAXRTU=NPTU 

maxptu=mptu 

LriMFN  = Lr)IMFN-l  FSS 

KSAVF=l  FSS*A/lOOO 

CALL  PAGF 

WPITF(N6t  niMENS) 

PFTURN 

END 


XFCMIOOO 
XFClJlolO 
XECU1020 
XFnjlO’O 
XFCDIOAO 
XECUIO50 
X FCUlOfeO 
XFCUIOTO 
XFCUIORO 
XFC'J  lOPO 
XFfil  I 100 
xFr.Lii  1 10 
X ECU  I 120 
XFTIJI  1-10 
XFflJl  lAO 
XFCUUSO 
XFruil60 
XFCUl  170 
XFCU  I IPO 
xrcuiloo 
XFCtJl  200 
xpa)i2io 
XFCU I 220 
XErui230 
XFCII12A0 
XFCU1250 


SURPOUT  INF  SFTns(LPOINT,ISTORF,NAMEtI  TYP  E 1 1 DI  M t JO  I Y,  KD  I P ) 
CPMMfiN  /STRCON/  JPK.IPK 
ri'-ENSIGP  ISTORFIUtMAMFIZ) 

CIMENSION  LINFIlOt  XLINEIIOI 
FOUIV  AL  EI4CE  < L INF  ( K , XL  I NE  1 1 1) 

FATA  N6/6/ 

IF(  K niM .CT .210  I GP  TO  9 
IFI 1 riM.GT.9999)  GO  TO  9 
IF( jniM  .GT .999)  GP  TO  9 

IFI ITYPF.NF. 1 .ANP.  ITYPE.NF.O)  GO  TO  9 
ISTr)P=0 

LG  IMEN=  ISTORFI  3) 

LASTA  = ISTORE  I A) 

LAST=ISTORE  ( ') 

NPniNT*ISTnRF<6) 

LHEAr*Mnn( istorfi 71, ipk) 

3 LZERO*LASTA*LHEAn 

IFIKDIM.I  F .0  ) CO  TO  30 

1 FI  in  IM  .GT  .999  .OR.  jniM.GT.2lO)  GO  TO  9 
L FNr,TH*xniM*JCIM*  lOIM 
lPOINT*LZFRn*IOIM* IPK+JO IM* JPK 
GP  TO  A 

30  IFIjniM.LF.C)  GO  TO  33 
LFNGTH*JOIM*  lOIM 
ipniMT«iZFPn-nniM*  IPK 
GP  TO  A 


SFTOnOlO  ! 

SFTnoo20  i 

SFTOnOXO  i 

SFTOOGAO 
SETOOOPO  ' 

SFTOOOAO 
SFTOOOTO  j 

SETOOOPO  ! 

srr  00090  ! 

SFTCOlOO  j 

SFTOO 110 
SFTP012O  ' 

SFT^nijo 
SFTOOIPO  . 
SFTOO  ISO 
SFTOOieo 
SFT00170 

srTooino 
SFTOOl PO 
SFT00200 
SFTOOZn 
SFTnn220 
SFT002 JO 
SFT002A0 

scTno2sn 

SFT00260 


33 

LFNGTh=  iniM 

SFTD02  70 

IPniMT  = lZFRr! 

SFT00  2flO 

NFED=LZ(:Pn*l  ENGTH 

SETn0290 

lElNFED.OE  .LAST  ) r,n  TP  2 

SFT00300 

K=LniMEM+l 

SETn0310 

IF(MpniMT.LE.O)  GO  TP  401 

SFTn0320 

rP  400  L=  IfNPPlNT 

SFT 00330 

LPPINT=K-L 

SFTn0340 

IF(  ISTPRFdPPINTl.FQ.O)  GO  TO  410 

SFT  DO  350 

4 CO 

CONTINUE 

SFTn0360 

4Cl 

NPOINT=NPniNT-H 

SFTD0370 

LPO  INT=L  AST 

SFTn03fl0 

LAST=L AST- 1 

SET00300 

4 10 

ISTOPFl  LPPINT  J=1PPINT 

SFT00400 

I STORE!  LZERP-4)  = ITYPF<-LP0INT*1PK 

SFT DO 4 10 

ISTCRF! LZFR0-3)=NAME( 1) 

SFT00420 

IST0RE(LZERP-2)=NAMF(  2) 

SFT00430 

ISTPPF! LZFRP- 1)=0 

SETn0440 

ISTOR  E( L7FR0  l=IDIM*jniM* IPK*KDI M*JPK 

SFTr)0450 

ISTOPE! 4)=NEEn 

SFT0046n 

ISTORF!  5)  =LAST 

SFTO0470 

ISTORFC  €)=NPPINT 

SFTnn480 

RFTURN 

SFT00400 

2 

LABFL=ISTOPF( 7)/lPK 

SFT00500 

MPVF=0 

SFTnosio 

1 ASTr=LAPCL 

SFT00520 

LASTJ=L  ABEL 

SFTn0530 

20 

J7FRP=L ASTJ^LHFAC 

SFTnns40 

IF( LASTJ.GF.LASTA)  go  TO  200 

SET00550 

IZFRO  = LAST  ULHEAO 

SFTn0560 

in=  ISTORFC  JZFRO) 

SFTOOSTO 

IF(  in.LF.OJ  GO  TO  200 

SET00580 

ICI  =MOC(  ID.  IPK  J 

SETOOSgO 

JPI  =MPD( ID, JPK 1 /IPK 

SFTnOftOO 

IFCjni  .LE.O)  JOI  =1 

SFTnoftio 

KCI  =IO/J«>K 

SFT 00620 

IFCKD  I .LF  .0  ) KDl  =1 

SETn0630 

L FNG=  in  I*JDI*KOI 

SFTno64o 

LCAr»lFNG  ♦LHFAO 

SETn0650 

MARK*  I STOP  EC  J/ER0-4I/IPK 

. SETOnfthO 

IFC MARK  .GT .C 1 GO  TO  23C 

SFTn0670 

MPVFsMPVE* 1 

SFTOnftPO 

LASTJ*L ASTJ^LOAD 

SFTn0690 

GO  TO  20 

SFTnOTOO 

2 30 

IFCMPVF.GT.O  J GO  TO  24C 

SFTDOTIO 

LASTJ»L  ASTJHOAO 

SFTOOTPO 

LASTI«l  ASTULOAO 

SFTDO730 

GP  TP  20 

SFTn0740 

240 

CC  250  L»1,L0AD 

SET00750 

LASTJ*LASTJ41 

SFTOPTftO 

LASTI-LASTl*! 

SFT00770 

250 

ISTOR  ECLASTI  )*1  STORE  1 LAST  J) 

SFT  n0780 

in*  ISTOR:  CMARKl/I  PK 

SFTD0790 

ISTOR  EC  MARK l«ID* IPK*I ZERO 

SFTOOaOO 

GP  TO  20 

SFTnOBlO 

2C0  LASTJ*L  ASTM  1 

IP(LASTJ.GT.l  AST4)  GT  TO  220 
rn  210  L=L ASTJ.L ASIA 
210  ISTPPEd  >=0 
220  ISTOPFl A)=L ASTI 
LASTA  = L AST  I 

L eft=last-lasta 
LPFOn»L  FMGTH*LHEAn*l 
IF(LEFT.GE.LRE3D  ) GO  TC  3 
I STOP = I 

WPI TF(N6, 6010  I ISTORF ( I ) , I STORE ( 2 ) , LEF TtLREOn, NAMF 

ENTRY  nu'^pnst  ISTOPF  I 

NPniNT=ISTnPE(6J 

IFINPO  INT.LF.O)  Gf  TP  112 

IF  ( F’PP  I^'T  .GT  .500)  GO  TP  112 

LAPFL  = ISTPRF  ( 7 )/  IPK 

W?  ITF(N6,  6 100)  (1  STORE  (L)  , L *1  f LABEL) 

N=  ISTPPEI 3)4  1 
N*1 

10  LP=M-M 

ipniMT=  istdpeu  p ) 

IF|  fPOIMT)  11,11,111 

ENTRY  WR ITPSILPPINT.ISTORE) 

NPniF'T*! 

Fxl 

IFd  POINT. LE.C)  GP  TP  11 
IPU  INT=  ISTORFILPOINT) 

111  I/n*Mpn(  IPOINT, IPK  ) 

IF( I70.LF.O)  GO  TP  11 
M *I  STORE!  1 7C -3) 

N?  *I STOP E( I 7P-?) 

LPI*'*  ISTPPFI  1 70) 

IT  I xMpO(LniM,IPK) 

JOI  =HP0(lDIM,JPK ) /I PK 
1 TYPE=»'nO(  ISTORF  (I  ZO-A)  , 10) 

IFILI  =ISTnRF(  IZO-1) 

IF! IFILL.FO.O)  IFILL=LOIM 
KPPxIFILL/JOK 
IF(KPR.FQ.O)  KPR*1 
JPRrMOni IFILL.JPKl/IPK 
IF(JPR.FO.O)  JPR»1 
IPRx^*^n(  IF  ILL  , IPK  ) 

IF(  IPR.EO.O)  GO  TP  11 
ASSIGN  121  TO  LN 
L*0 

V«P  ITF(N6,6600)N1,N2,  IPOINT,LPOINT,I  STORFI  1)  .ISTORE  (2) 
CO  100  K«1,KPR 
K ACC*(K-1 )*jni* IDI417P 
CP  no  j*i,jPR 

JKACn»( J-1 )• ICl4KADn 
cr  120  I»1,1PR 
Lrc*jKAnn4i 
CO  TO  LN,( 121,125) 

121  KP«K 
JP»J 
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SFTOORZO 
SFT0OR3O 
SET0OR40 
SETOOnSO 
SFT00860 
SrTn0fl70 
SFT00R80 
SFTOOflOO 
SFTOOOOO 
SFT  00910 
SFTOOOPO 
SFT0O930 
SET00940 
SFTOORFO 
STT00960 
SFT0n970 
S FT  00980 
SFT00990 
SFTnmoO 
SPTOlO  10 
SFT01070 
SFTOl 030 
SFTOIOAO 
SFTOIOSO 
SETOlObO 
SFTOIOTO 
FFTOl ORO 
SFTOIO90 

SFTOl  ino 

SFTOl 110 
SFTOl  ipn 
SFTOl  1 30 
SFTri lAO 
SFTPI 150 
SFTOl  1 60 
SFTOl l 70 
SFTOl 1 90 
SFTOl 190 
SFT01200 
STTOI  .?10 
SFTni?20 
SFTO1230 
SFTO1250 
SFT 01250 
SFTO1260 
SFTri270 
SFTOl 200 
SFTOl ?oo 
SFTOl iOO 
SETOl 310 
SFTO1320 
SFT01330 
SFTonAO 
SFTOl 350 
SETOl 360 


f 

i 

I 


) 


IP*  I 

ASSIGN  125  TP  LN 
125  L»L+1 

LINF(LI*ISTORF(LOCI 
IF(L  .LT.IOI  GO  TO  120 
IF(  ITYPE)  loco,  ICOO, 1111 

1000  WRITF(N6,6lll)  IP  , JP ,KP  ,L I NE 
GO  TO  130 

nil  WRlTFINt, 61111  IP,JP,KP,  XLINE 
130  L*0 

ASSIGN  121  TO  LN 
120  CONTINUE 
110  CONTINUE 
100  CONTINUE 

IFIL.FO.O)  GO  TO  150 
IFUTYPE)  1001, ICCl, 1110 

1001  WRITF(N6,6111)  I P , JP , KP, I L INE ( 1 1 , I* 1 ,L I 
cn  TO  150 

1110  WRITE(N6,6111  I IP  , JP  , KP,  ( XL  I NE  1 11  , 1 *1 , L) 

1*0  WRITF(N6,6601  1 IPR,JPR,KPR 
11  N«N>1 

IFIN.LE.NPOINTl  GO  TO  10 
112  IF(  ISTOP.GT.Ol  STOP 
RETURN 

9 WRITEIN6, 60001  I TYPE , ID  I M , JDI  M ,KDI M, NAME, I STORE  11 1 , 1 ST  ORE ( 2 1 
STOP 

ENTRY  FREE0S(LP0INT,IST0RE1 

IFILPOINT.LF.Cl  RETURN 

L2ER0*M00( IST0RFILP0INT1,1PK1 

K*IST0RE(L2ER0-41 

IFIK.GT.Ol  K«-K 

IST0RE(LZFR0-41=K 

ISTORF(LPOINT1*0 

LPniNT*0 

RETURN 

6000  FORMAT!  lHl//»  STORAGE  ARRAY  CREATION  VARIABLES  INC CMFAT IBLE*/ 

1 • ITYPE  » '.IS/*  lOIM  * SIS/*  JOIM  « •,I5/*  KDIM  * •, 

2 • CRFATED  ARRAY  NAME  * *,2A4/*  STORAGE  ARRAY  ■ • ,2A4  1 
6010  FORM  AT!  IHl//*  STORAGE  ARRAY  » SZAA,  • HAS  *,15,*  MORDS  LEFT*, 

1 • AND  IS  EXCEEDED  BY  THE  *,15,'  WORDS  REQUIREC  *, 

2 'PY  THE  CREATED  ARRAY  « •,2A41 

6100  FORMAT!  IHl/*  DUMP  OF  STORAGE  ARRAY  * •,2A4/*  LABEL* * , ! 1 2 1 10 1 I 
6111  FORMAT!  1X,IA,2I3,*1*,1CG12.51 

66C0  FORMAT!//*  1 J K 1 VALUES  FOR  ARRAY  ■ * ,2A4 ,5  X ,*  MA  P POINT*, 
1 'FR  » *,110,*  AT  L0C*,I5,*  IN  STORAGE  ARRAY  - *,2A41 

66CI  FORMAT!  • PRINT  DIMENSIONS  - *,  3151 
END 


SETD1370 
SET01380 
SETD1390 
SFT01400 
SETD1410 
SETD1420 
SET01430 
SETni440 
SET01450 
SETD1460 
SETD1470 
SFTD1480 
SET  01 490 
SET01500 
SETD1510 
SET01520 
SET01530 
SFT01540 
SET01550 
SETni560 
SETD1570 
SFT01580 
SFT01590 
SETD1600 
SFTD1610 
SET01620 
SFTD1630 
SFTni640 
SETD1650 
SETni660 
SETD1670 
SFTDl  680 
SFT01690 
SFTDl 700 
SET01710 
SFTni720 
SETni730 
SFTDl 740 
SFTni750 
SFTDl 760 
SFTD1770 
SFT01780 
SFTD1790 
SFTDlflOO 
SFTDiaiO 
SFTniR20 
SFTDlfl30 


SUBROUTINE  FNGAGFIKBUSFG,KRUSFG,I TBSEG, I TRSFG, INFORM, LBRSYS , 

1 LBSYST,LRSVST,IB  TU,IBTU,RTUXYZ,RTUXYZ, INVRTU, INVBTU, 

2 IRSTAT,  IBSTATl 

DIMENSION  KBUSEG! 1 1,KP  USEG! 1 1 , 1 TB SEG < 1 1 , 1 TRSFGIll , INFORM! I ) , 
I LBRSYS! ll,LBSYST! 11,LRSYSTI11 


FNGAOOlO 

FNGA0020 

ENGA0030 

FNGA0040 

FNGA0050 
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• -J-v. 


h 


' i 

1 

EN  040060  '1 

FNGA0070  ! 

EV0400SO  I 

FNOAOOOO  > 

ENOAOlOO  I 

ENGAOllO 


r HENS  ION  IRTUI  I ),  lOTlH  I ) .RTUXVZ  (8fU  ,BTUX>fZ(8  tl  ) t I6VRTU(1  ) t 
1 INVPTUI  1 ),  IRSTATI  1)  .IBSTATI  l» 

COMMON/PATTP  V/  NPATT.MISRAO (2| 10) 

CKILLF 

COMMO^/CK  ILLF/LVSHP,MVSHP,NVSHP,VULSHPI5,l2f  1)  ,NI)6,NUNMX, 

I KSTATEI 100), PKL ASTI  100) ,PPR00I100) ,CUHWT 1100 ) , VULCST ( 1 00 ) , 


2 

CNAVIG 


VUKILL ( 100)  ,VWKILL< IOC) ,VULFS,VULFA,VULFM 


common /(  M AV  IG/  N0»1X,PE,BF  ,RE,RF, 

1 NPr,nA,RP,BC,BD,KBGN(l8),KBGK(l8)  ,BGC(  8 ,6 , 1 8 ) ,NPU ( 18 ) , 

2 NPO.P A,RB,PC,RO,FRON( 18) ,KRGK( 18) ,RGC(  8 ,6 , 18 ) , NRU( 1 8 ) , 

2 TTIMF.NUMX, 

A KPU,K6UK<4, 50  ), BREL (4, 50) ,BXYZ 150,7) ,NAH8U(50  ,2) , 8V I 50, 8) , 

5 KPU,KRIIKU,50),RPFL(4,50),RXYZI50,7)  ,NAMRU(50,2),RV(50,8) 

CPL*T  VS  SYSTEMS  (SUBSYSTEMS) 

COMMON  /CPLAT/NBP,NflPMX,NBSS,NBSSMX,NBSPP( 15) ,NBPWS(45) , 

NAMPPI 2, 15),KPPT(  15)  ,NABSS(2,45) ,KBST(45) , KBPXS <45 ,15 ) , 
PPX1<12,15), 

NRP,NRPMX,NRSS,NRSSMX,NRSPP(15) ,NRPWS(45) , 

NAMRP(2,  15),KBPT( 15) ,NARSS<2,45) ,KRST(45) ,KRPXS (45,15), 

RPXK  12,  15) 

CMSLSYS  16  2 2 6 6 24  50 

COMMON /CM SL  SY/  NM St , NMSL MX ,NBSSM ,N8 ASM.NRSSM,  NR AS M ,L ATMS L , LTR A J, 

1 NAMMSL(2,16),KMSLTV(16), 

2 DATMSLI 24, 16),  TTRAJ(50,16) 

C.ZZSYS  25  U 12  15 

C0MM0N/C7ZSYS/NZZSYS,NZZSMX,NBZSYS,NP2SYS,LAZZ,NAMSYS (2,25) , 

I KZZTYP(25),ZZSYS(15,25) 

C.SAmlT  8,12,15, 

common /CSAML  T/L  X,MX,NX,RMN( 15) ,RMX (15) ,EMN( 15) ,FMX (15 ) ,ZMX( 15 ) , 

1 XMX ( 15),  RT( 8,  12, 15) 

CSASYS  15  4 4 2 4 20 

COMMON/CSASYS/  nsasys,nsasmx,nbgun,nbsam,nrgun,npsam,  lasa, 

1 NAMSA( 2,  15)  ,KS4TYP( 15) , SASYS(20,15) 


CPtCAR 


1 

2 

3 

C SONAR 
1 


common /CR 40 AP/NBSR ,NBTP , NBR MX , NB J, NBJMX, 

BR  40(  3 6,  17), PFNV( 6,2) ,BFTC (4,2)  ,8TAR (6,3) , B J AM( 6 , 3 , 2 ) , 
NRSR,NRTR,NRRMX,NR J,NRJMX, 

RP  4n( 36* 15)»BENV( 6,2) ,RFTC(4,2) ,RTAR(6,3)  ,RJAM{6,3,2) 
COMMON/CHOMER/  NHnM,NH0MMX,N4MH0M(2,l0) ,KHnMTY(10) ,DATH0M( 36, 10) 

15  5 8 12 

COMMON /CSnK'AR/N  SOM,  NSONMX,  NR  SCN,  NRSON,  L ASON,  NAMSON  ( 2,15), 
KSrNTV(15),  SONSYSI  12,15) 
common  /SONCPV/  (PA, (PR,  IOA, inB,IROTTM,l ACTIV,SR4NrE(17 I , 

1 SMFR (T( 17) 

CCMMON/STRCON/  JPK,IPK 

common  / INFO/  LENIFn,LFNSEG,MAxSEr,,NE  XSFG,LSTSEG,LZCSFr, 

COMMON/ GN  fV/  PCC V) 8, 5, 18) ,RGCV( 8,5,1 8)  , I NTVLR (38 ) ,I NTVLR (38) 
COMMON /OF V ICF/  N 1,N2,N3,N4,N5,N6,N7, NR,N9,N10,N11 ,N12 
COMMON  /ETIMF/  TIMF,TIMEA, TIMER, TBEGlN,TIMFNn,T(M4X,TSTFP 
COMMON/ fCOMST/  N SHIP,N4 IR ,NSUR ,NVSF A,NVALT, POTMI N, FCMIN, 

1 A IBCPT, FPNM,hmIN,PI , TWOP I , I FNV  , I SC  AN, ( PR AO, I Ml  SCI  35 ) 

COMM  ON/ EX  STOP/  LFNSYS,MAXRTU,MAXBTU,LFFTnS,NPTU,NBTl),lRPS,NPMASF 
COMmon/CTi OOP/  TOUl, IPP I NT, JPRINT,! VEC ,LTI ME S , I B VE C , I RV FC , 

1 (BTVPC,  IPTVFC ,l  FFTP  ,LFF  TR,NEXBTU, NE  XRTU,PRSTEP .PSTAPT , 


ENGA0120 
FNGA0130 
ENGA0140 
FNGA0150 
ENGA0160 
FNGA0170 
FNGAOlflO 
ENG40190 
FNGA0200 
FNG40210 
ENr,40220 
FNr,AO230 
ENGA0240 
FNGA0250 
FNGA0260 
FNG40270 
ENGA02P0 
FNGA02P0 
FNGA0300 
FNCA0310 
ENG40  320 
FNGA0330 
ENGA0340 
F NO  40 3 50 
FNG40360 
FNG4n370 
FNGA0380 
ENGA03R0 
FNG40400 
FNG40410 
FNG40420 
FMC,40  4 30 
EMGA0440 
FNG40450 
ENG 404 60 
FN'‘4047n 
PNC, 40480 
FMC 40400 

fngaosoo 

FMGA05  10 
FNC,40S20 
FNGA0530 
r MG AO  540 
PNGA0550 
f NG40S6,') 
PNGA0570 
FNC405P0 
ENC,405q0 
FMC, 40600 
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2 P'^Tf.P,  «:<:TrP,TPwinT,TLAST,Tl  MFSdOOJ 

r 

JWP(A)  ,V>FP(  S)  , JTG(  5)  ,Tr,T<5) 

FOUIV4LF^rP  ( IM  I sf  ( ^)  .MLPR)  , ( I 1 SC  ( <►  I f I S I OF  ) , ( I I <;c  ( 6 ) , x U L PR  ) 

1,  ( I^'TSC  ( 7 ),  I S^  4PP  » , (I  MT  SC(1 1 ) , I VECPJ  , ( IM I S C ( 1 2 » , I V Fr  R ) 

2,  ( I^' ISC<  13  I , IF  MOVP  ) , ( I PI  SC(  M)  t I RNOVRl  f ( I MI  S C ( 2P  ) t I RS  4 P ) 

3,  ( I'MSCI  3l),MXSHIP  ),  (I»'ISC(32),NXAr.)  , (I  Ml  SC  I 33  ) ,NXSUH  ) 

A,  { [MI  SCM^)  f NXCM  ) 

r4T4  jwp, jTn,wFp,Tr,T/o*o,  io*o./ 

c 

K4«FL  1ST  /NGAGF/  r CARLO, TRFC.IN,TIMFND,TSTEPfNRANOM,NPHASF, 

1 IPP  INT, I SNAPR .PRSTFP  ."START, PSTOP, NL PR, KILL  PR, 

2 per  I AS, MVTh, FVTR ,HVT IME , I VEC B , I VFC P , I P^DVP, I RNCVR , IRS  AM, 

3 MXSPIP.NXAC.KXSUP.N'XCM, 

A IPPAf  , IFMV.JAF',  I sc  AM,  POT  I MF,  POM  IN,  POT  MI  N.POC  MI  A,  I ACT  IV, 

5 IPrTTM./vtPCPT,  1“!  SC.K'BATT.mI  SR  AO  ,NT  I MES  , T I MFS 

r 

6ACI  RORMATI  //23X,  " CRIIISF  HITS  ON  MISSILFS*, 

I /23X,»  MISSILPS  TARGETS  KILLED', 

i IZi't,*  LAUNCHeO  EVALUATEO  RNROtlTF*  /) 

6 AC?  FORM  ATI  /LX  , 2 4 A,  I P , 16  , I 10  , I 10  » 

C 

rr  10  1=1,100 

10  T IMPS!  I )='). 
inji  = 5o 
TSTEP=.OOI 
PCTIV  R=.0?0I 
PPSTRP=  .1 
JAM  = 0 

nphasf=f 

PCCM  IN=  .*» 

NP ANOMr 1 
NCARI  n=i 
iMisr(3i)=s 
IMIsri 321 =2 
iMiSf  ( •»;>)=? 

UMSr(3A)=l 
FVTP= 3. 

FVTf;=0. 

PCCl  AS=0. 

LVTIMF  = C. 

IPU IMT=  1 
TPFH  IN=  100. 

T lMPMn=  100  . 
pc  TAP  T = - 100. 

P5TnP  = lOO. 

CALL  PA  CP 
r 

t INPUT  rNGAfMFNT  C^A'TPni  PARAMETERS 

r 

P PAOI  .MGACF  ) 

IMI SCI  I )="nT  IMP*  lono.  + .oi 
PM  Sr  I 2 1=JAM 

iMit;r  I E irPocMiN*  lor.  + .oi 
P'ISt  ( <>  )=HVTI»*.  Cl 


EN  04061  0 
PMGA0620 
FNF^A06  30 
FN0A06A0 
PNG406S0 
FNrA0660 
FNGA0670 
FNOAOABO 
‘'NGA0600 
ENGA0700 
FMGA0710 
FNGA0720 
ENGA0730 
FNGA07A0 
FNGA0750 
FN 040 760 
FNG40770 
FNC40730 
FN040700 
FN040B00 
FNG40B  10 
FNCA0820 
FNGA0R30 
FNOAORAO 
EMGAOSSO 
FN0A0H60 
'■NO  40  0 70 
FN040B80 
FNOAOPPO 
ENGAOPOO 
FMG409  10 
FN0AO92O 
FNOAOT>o 
PNOAORAO 
T NO  409  SO 
PN  " 409  60 
FM0AO"70 
r‘i040MPO 
FN  9/\  0990 

r\'  r A 1 00 0 
'•'■JO  A 10  10 

'*’0  4 1 1 ? 0 
O’!  041  0 10 
f*'0  4]  OaO 

M 060 

<*1  r.  4 1 ■’6  0 
••■'1  0 4 1 0 7 4 
FA'OA  m3 
' A'  ^ 4 1 0 «’  0 
PA'  '■  41  1 00 
>■■'0  41  I 1 A 
M OAl  120 
TNOM  100 
tat.  * 1 lAO 
“■A.  OA  1 1 ‘•■0 


N- 


7A 


!^MSf  ( 10  > = HVTK4-.01 
rMisr(  2ii=pnrLAS*ioo.4-.oi 
IMI sr ( ?e>  =HVT IME* iono.+. oi 
r 
c 

CALL  SrNARM 
X=IEMV 

PENV«  I,  n*x+.oi 
PFMV(  I,  I )=X*.Ol 
5;STFP=TSTEP 
CD  100  I=l,NRANDM 
100  XPN*URN( IDUM  ) 

DP  500  1CARL0=1 ,NCAPLO 
!NIT=  1 

rn  no  i=i,i6 

CP  110  J=21,2A 
I 10  CATMSLt  J,  J )=0. 

CALL  K ILL  FX(  INIT, ISIDEfJWP .WEPtJTG ,TGT ,lPRtl PR> 

CALL  GCPATAI  BGC, BGCV.NBG, INTVLB,BE,BF) 

CALL  GCCATAIPGC  t PGCV t NRG, 1 NTVLP t RF .PF ) 

NFXSFG=0 
L5TSFG=  1-LFNSFG 
f PRS^O 

CALI  5Y  CTEMtKRP  XS  , KB  “ T , KP  ST  , NB  P,  62  , NB  SS,  BR  AO  ,L  BPS  Y5  , 

1 IPBS.l  ENSYSfK  BL,KBUK,LBSYST ,KRGK,NRU,NRG,1 BSTAT, 

2 BPXl  ,SASYS,  Z?SYS,OAT»»SL  , AIRCPT.NVALT,  lACTIV.SCASYS.TTRAJ) 
CALI  SYSTEM ( KPP X S,KPPT,KPST,NRP, 82, NPSSf PR AOtLBRSYS, 

1 IBPS,LENSYS,KRU,KRUK ,LRSYST,KRGK,NPU,NRG,IRST AT, 

2 RP  XI , SASYS, Z2SYS,nA  TRSL , A I RCPT ,NV AL T, I ACTI V,SCNSYS ,TTRAJ) 
NPTU=0 

NPTU=0 

NrXBTlJ=C 

NFXRTU=0 

IF(  ICAPLO.GT.  1)  GP  TO  30 
MAXT  1M=  100 
TCI  (1SF=.001 
NTG=MBC-»NRG 
NTIMFS=1 
NCW=  1 

T TMESCNTIMFS  »*BGC<  2, 1,1) 
cn  840  NT=2,8 
rp  850  N=l,FTr, 

I=M-NfiG 

IF(  I ) 81, 81, 810 
ei  TPI Al =BGC(NT,  1,N  ) 
rr  TP  811 

810  TP  I4L=PCC(NT,  1,1  ) 

811  I AST=0 

815  TNnw=T INF SINOW) 
riFP^TP  lAL-TNOW 
IFIDIFF)  80,050,8? 

80  IF( APSCOIFF I.LT.TCLPSE)  GP  TO  850 
IFILAST)  802,801,83 
8C1  LAST*-1 

8C2  IFINPW.FO.l)  GO  TP  83 


FNGAl  160 
^aigai  170 
FNGA1180 
FNGAl 100 
FNGA1200 
FNGAl  2 10 
FNGAl 220 
PMGA1230 
ENGA1240 
FNG41250 
FNr,41260 
FNGA1270 
FNGA1280 
FNGAl 200 
ENGA1300 
FNGA1310 
FNGA1320 
FNGA1330 
FNGAl 340 
FNGA1350 
FNGAl 360 
FMGA1370 
FNGAl  380 
FNGAl  3'’0 
ENGA1400 
FNG41410 
FNGA1420 
FNGAl  430 
ENGA1440 
FNGAl 450 
FNGA 1460 
FNGA1470 
FNGA14R0 
FNGA  1400 
CNGAl 500 
FNGAmO 
FNGA1520 
FNGA  1530 
FNGA  15  40 
FNGA1550 
FNGAl 550 
FNGAl 570 
FNGA 1580 
FNGAl 500 
FNGA 1600 
FNGA  16  10 
FNGA1620 
FNGAl  630 
FNGA 1540 
TNG Al 550 
rNGAl660 
FNGA1570 
FNGA16P0 
FNGAl 500 
FNGAl 700 
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NnW=M0W-  1 

EN  GA  1 7 1 0 

GC  TP  815 

FNGA  17  20 

82 

IF( ABSCniFF  l.LT.TrtnSF)  GO  TO  850 

FNGA1730 

Nnw=NOW*l 

PNGA1740 

1F(1 AST  ) S’, 8 21, 822 

FNGAI  750 

821 

L AST=1 

FNGAl 760 

8 22 

I f(  NPW-NT  IMPS  ) 815,815,831 

ENGA1770 

81 

K=NT  IMFS^l 

FNGA1780 

rr  830  I=NOV(,NTIMFS 

FNGA  1790 

T!MES(K  )=TIMES(K-l) 

FNGA1800 

830 

KxK-1 

FNGAIRIO 

831 

NTIMFS=NTIMFS»1 

FNGAl  820 

T IMFSt MOW ) = TR lAL 

ENGA1R30 

IF(NTIKFS.LF.H4XTIM)  cn  to  850 

FNGA1R40 

call  PAGF 

CNGA  1850 

WR  ITF(M6,  6801  ) MAXTIM,TIMFS 

EN''A1860 

68C1 

FORMAT! //6X, tNUMBFR  OF  TIMES  F XC EE 0 S • , I 5/ ( 6X, 1 OG 1 2 . 5 ) 1 

FNGA1870 

STOP 

FNGAl 8flO 

850 

COMT  INUF 

FNGAl 890 

840 

GPNT  TNtJF 

FNGAIPOO 

IFCTHEGIN.FO.ICC.I  TPEG  IN xT I ME S « H 

FNGA  10  10 

T IMAX=TBFGIN-»21 .000 

RNGA 1020 

IF  IT  IMENO.CO.  100.)  TIMEN0=T1MFS(NTIMES) 

FNGA  19  30 

IF( T IMEND.GT.TIMAX)  TIMFMOxTIMAX 

FNGAl 940 

L T IMFS  = NT I^ES-  1 

FNGAl 950 

WR  ITE(N6,NGAGE  ) 

ENG A 1060 

30 

Til  STxTIM!  SI  1)-SST-P 

FI  GA  1970 

TOR IMT  = TRFG  IN 

FNGA1980 

FNGA 1990 

TALI  T ILOOPI  KBUSEG,KRItSFG,  1 TRSFG,  I TRSFG,  I NFPP  M , L P RS  VS  , 

ENGA2On0 

1 

LRSYST.LR  SYST, IP  TU, IRTU,RTUXYZ,RTUXV2 , INVRTO, I NVRTII, 

FNGA20 10 

2 

' IR STA T, IBSTAT ) 

FNGA2n2n 

FNGA2030 

400 

CPNT IMUF 

FNG A2040 

IFIMPHASr.l  T.2I  PFTIJRN 

‘■NGA2050 

IVFC=54’21 

FN  rA2060 

CALI  ALLXYZITImE,  l,N6,IVECI 

FNG  A2n70 

CALI  SllMrijTI  ITAP  IP) 

FNGA20P0 

CALL  PAGF 

fngazooo 

WR  ITF(N6,6401) 

F'IGA2100 

cn  401  1=1,16 

FNGA21 10 

1 =r)ATM<;L  122,1  )♦  .5 

RNGA2120 

IF  ( 1 .EQ.O ) GO  TO  401 

FNGA?  130 

JxOATMSL 123,1  )♦  . 5 

FNGA? 140 

KxOATMSLI 24,1 >♦.5 

^^'GA?1  50 

WR  I TE(N6,  6402)  NAMM<;i  | 1,  I ) ,NAMpSL  I 2,  I ) ,KMSl  TYII  ) ,L  , J,K 

FNG A2 160 

401 

CPNT INUE 

rNGA2 1 70 

r.r  40?  1 = 1, XPU 

rNGA21RD 

KPUK 1 4,  I ) = 1 

FNFA2 190 

4C2 

KPUSFGC  I )«0 

FNGA220O 

rn  403  1=  1, KRu 

FNGA22 10 

KPUKI 4,  I)=  1 

FNGA7720 

4C1 

KPUSFGI  I )*0 

FNGA2230 

K»KBII»MAX8TU 

FNGA 2 240 

cr  404  1=1, K 

FNGA2250 
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AC4  ITRSFGf  I ) = 0 
K=KHU+MAXP  TU 
CO  405  1=1, K 
4C5  1TPSF0(  I )=0 
K = 2*k  mi-fl  I 

nr  406  1=1, K 

406  LPSYST(  I ) = 0 
K=?*Kt?U-*l  1 
rn  407  !=i,K 
4C7  LRSYSK  n=n 

500  CCNTINUF 
PFTUPM 
FNO 


EM  0^22  60 
rMG42?70 
FNGA22R0 
ENG  122 -<0 
FNGA2300 
PNr,A2310 
FNG42320 

FMGA233.3  I 

FNGA2340 

FMGA235n 

FMG42360 

FMGA2370 

FNGA2  jao 


SURPOUTIME  TROOP  (KBUSFG,KRUSEG,  1 TBSEG.I  TRSEG,  lNFaRP,LBRSYS  , 

1 losyst,lrsyst, ip  TU, IBTU,RTUXYZ,BTUXYZ,I  NVRTU, INVBTU, 

2 IRST AT, I BSTAT) 

CIMFNSION  KBUSEGI  l),KRUSEG(ll  ,I  TBSEGd)  ,1  TRSEGIII  , INFORM!  H, 
I LRPSYSI  1 ),LPSYSTIl),LPSYST(l) 

r IMFM  S ION  !R  TUI  1 ), IBTUI 1 ) , P TUX YZ 18,1  ) , P TUX YZ 18 , 1 ) , I NVRTU I 1 ) , 
1 INVBTUI  1),  IRSTATI 1) ,IBSTAT< 1) 

rOMMON/RATTR  Y/  N BA  TT  , M I SR  AD  ( 2 , 10) 


CKILLF 

1 

2 

CNAVI G 


rrMMnN/r,KRLF/LVSHP,MVSHP,NVSHP,VULSHP(5,12,l)  ,NUN,NUNMX, 
KSTATF(100),PK LAST! 100) ,PPR0D(100) .CUMWTIlOO) , VU LOST ( 100 ) , 
VUK  ILl  I 100) , VWK II L { IOC)  , VULF  S , VULF A , VULFM 


CnwMnN/CNAV  IG/  NCMX,BF,PF,RE,RF , 

NPG, BA, PB, BC,BD,KBGNI 18 ) ,KBGK( 18)  ,BGC I 8 ,6 , 1 8 ) , N9U ( 1 8 ) , 
MPG,RA,RB,RC,Pn,KRGN( 18) ,KRGK( 18) ,RGC(  8,6,18  ),NRU( 18) , 

TT IME , NUMX, 

KPU,KRUK I 4, 50) ,PPEL (4,50) ,BXYZ(50 ,7)  ,NAMBU (50  ,2 ) , BV I 50 , 8 ) , 
KPU,KRUK (4, 50)  ,RPEL ( 4,50)  ,RXYZ (50,7)  ,NAMRU(50  ,2) ,RV ( 50 ,8) 
SYSTEMS  (SCPSYSTEMS) 

rOMMUN/GPL AT/NPP,NPPMX,NBSS,NBSSMX,NBSPP(15) ,NBPWS(45) , 

NAHPP(2,  I5),KPPT(  15),NARSS(2,45)  ,KBST(45)  ,t<BPXS(45,15)  , 

BPXK  12,  15), 

NPP,NPPMX,NRSS,NRSSMX,NRSPP ( 15 ) , NR PW S ( 45 ) , 

MAMPPI 2, 15  ),KPPT( 15) ,MAPSS(2,45)  ,KR ST (45 ) ,KR PXS  (45 , 15 ) , 

PPXK  12,  15) 

16  2 2 6 6 24  50 

common /CMS! CY/  NMSL,NMSLMX,NBSSP,NBASM,NRSSM,NRASM,L ATMS!  ,LTP  AJ, 

1 MAMMSl ( 2, 16) ,KMSL TY( 16) , 

2 OATMSL ( 24, 16),  TTRAJ(50,16) 

CZZSYS  25  11  12  15 

COMMON /r 7 ZSYS/MZ7SYS ,NZZSMX,NBZ  SYS,NRZSYS,L AZZ.NAMSYS (2 ,25 ( , 

1 KZZTYP(25),7ZSYS(15,25) 

rSAMLT  8,12,15, 

common/ C S AML  T/L  X,MX,NX,PMN(15),RMX(15),EMN(15),FMX(15),Z“X(15), 

1 XMXI  15),  PTI e, 12,15) 

CSASYS  15  4 4 2 4 20 

COMMON/C^ASYS/  NSASYS,NSASMX,NBGUN,NBSAM,NRGUN,NRSAm,  lASA, 

1 I'AMSAI  2,  15)  ,KSATYP(  151  ,SASYS(20,15) 


1 

2 

3 

4 

5 

CPLAT  VS 


1 

2 

3 

4 

5 

CMSLSYS 


TlLnoOlO 
T 11000  20 
T IL00030 
T ILn0040 
TROOOSO 
Tun0060 
TI Ln0070 
TI LOOOBO 
T ROOOOO 
T ILOOIOO 

T I L no  1 1 0 

TILOOIZO 
T ILOOl ’0 
TiLnni^.0 
TlLOnl50 
T R00160 
T ROO  170 
TROOI  80 
T II 00190 
TIL00200 
T 1100210 
T 11^0220 
T 1100230 
TR00240 
T (L00250 
T I L00260 
T!LO()270 
T RO02fl0 
T 1100290 
T ROO  300 
TRO0310 
TILO032n 
TI 100330 
11100340 
T 1100350 
T 1100  360 
T ROO  370 
T 1100380 
T 1100300 


N-  7 7 


CRAtA«^ 

COM  MpM/ CRAP &R/NPSR  ft'PTP  ,NRRMX  ,NR  J,  NBJ  BXf 

1 RPAPi 36, 17 ), PFrV( 6,2) ,BETC (4,2» ,9TAR 16,3) ,8JAM(6,3,2) , 

2 NRSR,NRTR,NRRMX,NRJ,NRJMX, 

3 PRAD(36,15),PFfV(6,2),RETC(A,2),RTAR(6,3),RJAM(6,3,2) 

COMMON' /fHOMFR/  NHPM  ,NHPMMX  , N AMH  CM  ( 2 , I 0 ) ,KHnMTV)  10  ) ,nATHPM(  36,  10  ) 
CSCNAR  15  5 R 12 

rpMMPN/rsONAP/NPrO,NSr'NMX,NBSCN,NRSCN,LASr'N,NAMSCM  2,15), 

1  KSPMTY(15),  SPNSYSl  12, 15) 

CPMMPN  /SONCRV/  IPA,TPB,  !nA,nB,lB0TTM,IACTlV,SRANnE(17), 

1 SMFP  ITl  17) 

CPMMPN/STPC.PN/  jpk,ipk 

CC^'MPN/  INFO/  L CNIFn,LEOSFG,MAXSEr,,NEXSEG,  LSTSEO  ,L  ZCSFO 
COMMON /r/v,  AV/  BGC  V(  fi,5, 18)  ,RGCV(8,5,1  8)  , I NTV  LB  1 38  ) , I NTV  L«  ( 3R  ) 
COMMON/ CEV  ICE/  N1,N2,N3,N4,N5,N6,N7,N8,N9,M0,N11,M2 
COMMON  /FTIMF/  TIMF, TlMEA, TIMER, TBEGlN,TlMENr),TI  MAX, TRTFP 
CPMMPN/FCONST/  N SH I P , NA I R , NSUB , N VSE A ,N V ALT , P OT M I N, FDMIN, 

1 A IP  CP T,FPNM,Hmim, PI  ,TwnPI  ,1 ENV,1 SC  an, I PP AD,  IMIS C( 35) 

COMMON/ FXS TOR/  L FNSYS ,MA  XP TU , M AXB TU , LE F TO S ,NR TU, NB TU , I BRS , NPHA S F 

cpmmon/cti  OOP / inui , ipp imt, jpr int,i vec ,lti mes, i bvfc,i rvfc, 

1 IBTVFC, irtvec,lfftp,leftr,nfxrtu,nexrtu,prstfp,pstart, 

2 PSTPP,SSTFP,TPRTNT, TLAST,TIMFS<100) 

Cr^FNSICN  KRHVT  ( 50)  ,KBHVT<  50) 

c 

FOUI  VAl  FNCF  ( IS  IPF  , I M I SC  I A ) ) , (I  S N APR  , I M I SC  ( 7 ) ) , 

1 (NLPK,I“ISC(3)),(KItLPR,IMISC(5)) 

C 

namelist  /INTLFG/  IMTVLP  ,INTVLR ,KBHVT, KRHVT 
C 

|PNV=  1 
IRNV=  1 

IF(  IM  ISCI 23  ) .FO .0)  IMI SC ( 28) =22000 
CO  110  1=1,50 
KR  FVT(  I ) = 0 
1 10  KPHVT ( I ) = 0 

no  -JPS  KTlME=l,l  TIMES 
TIMEA  = T IMFSIKTLMF j 
TImfp=tImFS(KTIMF+1  I 
T 1ME  = T IMF  a 

IFVT  IM= (TIMf-TRFGl N)*l COO. 

JPP  INT  = IPP  INT 

3  IFI T I MF  .1 T .tpfGI N ) GO  TO  390 
IF( T IMF  .GT  .TIMFNO)  RFTURN 
IF(  T IMF  .GF  .TPR  INT  t JPP  IN  T = t ’’RI  NT 
ITIMF  = ( TIME-TBFGIM  )♦  1000. 

TSTFP=T  IME-TLAST 
IVFC=5A321 

CALL  ALLXYZIT1MF,JPPINT,N6,IVEC) 

IF( JPR  INT.FO.O)  GO  TO  30C 

IF(  IM  ISCI  3).GT.O)  W^I  TE(N6,INTL'=G) 

3C0  I8VFC=TVFC/10 
ISIDE=1 

IPVFC=MnC(  IVFC,  10 ) 

IPTVFC=0 
L FFTB  = 0 


Til  OOAOO 
T1  LOOAIO 
T IL00A20 
TinOATO 
TILOOAAO 
TIinOA50 
TILO0A60 
T ILOOATO 
T ILOOARO 
T ILOOAOO 
TTL0n500 
Tf Lonsio 
71100520 
T ILn0  5 30 
T 1LO05A0 
71100550 
TI Ln0560 
TILOO570 
TI L 00580 
T IL00590 
T I I 00600 
T I L006 10 
T ILO062n 
T I 100630 
T I Ln06A0 
T I LOO650 
T II 00660 
T I L -^0  6 7 0 
T IL006R0 
T IL006O0 
TIL00700 
TI L0071 0 
I IL00720 
T I L00730 
T ILO07A0 
T TL00750 
7^00760 
TM  00770 
T IL  3078  0 
T M..)0  7O0 
T I LOOROO 
T II  OOR  n 
T ILOO«?0 
T ILO0R30 
T I L OORA  3 
T I L 10P50 
T IL  00860 
Til  00870 
T I I OORPO 
T I LO0R90 
Til  00900 
Til  30910 
T I Ln0920 
T II  00  030 
T ILOOOAO 


j 


N-  78 


IF(NPTU  .FO  .0  ) r.n  TO  3C5 

rSLL  TUXY/  (NRTU,  I P TU  t 1 NVR TU  t B TUX  Y?  , XR TU , 
fl  KPUK,  INTVLPtPXYZ.BGCVt 

1 KPU, INTVLR ,KPUK,RXY7,RGCVt 

2 TTRAJ. IVFC.LFFTPt inUl) 

IF(  IVFC  .r.T.O)  IPTVFC  = IVFC 

3C5  !RTVEC=0 
IF  inF  = 2 
L FFTR  =0 

IF(NRTU.FO.O)  nn  Tn  31c 

CALI  TUXYZINRTU,  IP TU t I N VR TU  ,R TUX YZ , MA XR TU, 

A KPUK, INTVl  R ,F XYZ.RGCV, 

1 KPU, INTVLB ,KrUK,PXYZ,BGCV, 

3 TTRAJ,IVEC,lf  FTR.IPUn 
IP|  IVFC  .GT  .0  ) 1PTVFC  = IVEC 

310  I F( L FFTP.EO .0  ) GP  TO  315 
ISIDF=l 

CALL  TU2XYZ (NPTU, IRTUf IN VBTU t R TU X YZ , 

1 KPUf INVPTU.RTUXYZ, 

2 IVEC,  inui) 

TF(  IVPC  .GT  .0  ) IBTVEC=IVFr 
315  I F( L FFTR .FO .0  ) GP  TP  320 
ISinE=2 

CALI  TU2XYZ(NRTU,  IP  TU  t I N VRTU  ,R  TU  X YZ  t 

1 KPU, INVPTUt PTUXYZ , 

2 IVEC.IPUl) 

320  IP(NPHASF.LT.3)  GC  TP  38C 
ISIDE=1 

IF(  1 PVEC+IR  VFC+ IRTVFC  .EO.  01  GO  TO  32  5 
CAl  I R FLAT  E(  NRG,  NPU,  I N T VL  R ,LB  S YS  T , K0USFG , 

1 RGCV, PXY7, BPXl , IBSTAT, 

2 KPU, NRG, NR  TL,  INTVLR , I N VR TU, NRU , LR S YST , 1 TRSFG, 

3 IPTU,RPX1,RGCV,KRUK,RXYZ,RTUXYZ,IRVEC,TRTVEC, I PST  AT, 

A INFriRH,LBRSYS,OATMSL,IDUl  ) 

325  1F(  IPVEC+IBVEC  + IBTVFC  .FO.  01  GO  TO  330 
1SI0E=2 

CALL  RELATFI N P G , NR U, I N T VLR  ,LR S YST  , KRUSEG , 

1 PCCV,RXYZ,RPX1, IPSTAT, 

2 KPU, NRG, NRTU,  I NT VLB  , I N VB TU, NBU , LP S YST , I T BS EG , 

3 IPTU,RPX1, RGCV, KPUK, RXYZ,BTUXYZ,IBVEC,IBTVFC, IBSTAT, 

^ IMFnR»1,LBRSYS,0ATMSL,I0UH 

330  I F( NPFASF.L T. A)  GP  TP  28C 
IStnF=l 

CALL  PFTFCTI KRU,NBTU,l PSYST,KRUSEG,0RAO,0XYZ ,KBUK, I NTVL  P, 

1 RGCV, PPX  1,PFNV(  I, IRNV) ,HAXR  TU, IBSTAT,BTUXYZ,KRST, I BTU, 

2 KPU,NRTU,LRSYST, I TRSEG,RXYZ ,KRUK, INTVLR, RGCV, RFXl , 

3 RJAM,  IPTU, PTUXYZ, IR  STAT,KRHVT, 

A CATySL,LRPSYS,INFOPH,DATHOM,  lOUl) 

IS  inr  = 2 

call  n FTFrT(KRU,NPTU,LR SYS T,KRUSFG,RRA0,RXYZ,KRUK,  INTVLR, 

1 RGCV,RPX1,RENV(  1,  IRNVI  , MA  XR  TU,  I R S T AT  , RTUX Y Z , K R ST  , I RTU  , 

2 KRU,NRTU,LPSYST, I TPSEG  ,0XYZ ,KBUK, I NTVLR,RGCV , PPXl , 

3 RJ  AM,  I BTU,  RTIIXYZ  , IB  STAT,KBHVT  , 

A nATMSL,LBRSY5, INFORM, DATHOM,  lOUl) 

IFINPFASF.lt. E)  GP  TO  380 


TIL00050 
T ILn0960 
TILP0970 
TIL009RO 
T ILn0990 
T ILPIOOO 
T ILOmiO 
TILniO20 
T1LP1030 
T ILPIOAO 
TIL01050 
TIIP1060 
TILP1070 
Til  nioao 
TILPin90 
T I LPl 100 
T ILOl I 10 
T ILPl 120 
T ILOl  130 
T ILOl lAO 
T ILOl 150 
TIL01160 
T ILOl  170 
T ILOl  IBO 
TI LOl 190 
T ILOl  200 
T1L01210 
TIL01220 
T II P1230 
T ILOl 2A0 
T IL'^1250 
T 1101260 
T 1101270 
T ILOl 2R0 
TI 101290 
T ILOl 300 
T I L 01 310 
71101320 
T ILOl 330 
T I LOl 3A0 
TIL01350 
T ILOl 360 
T ILOl 370 
T IL  ''1  3R0 
T 1 L"1 390 
T ILOIAOO 
TILOIAIO 
T II  0 1 A20 
7 II P1A30 
7 I LOl AAO 
T II  01A50 
T II  01A60 
T ILOIAZO 
7 ILOIABO 
TILOl AQO 


N-  r? 


IF(  IT  iMF.pg  .0 1 Gr  Tr  Teo 

IF(  I(-VT  IV  .r,T  .m  MF  » GO  TO  33  33 

IHVTIM=  IHVT IM  + IM ISC ( 2fl) 

CiSLl  HVTGTI  IVISCI  11)  ,NPGf  INTVLB.BGC.BGCV, 

I tSRU,IRSTAT,KPUKtPXYZ,RRELfIMISC(10)  ,KRHVT  , 

> TIMF  ) 


CALL  HVTGTI IVISCI 12) , NRG , 1 NTVLR t RG C, RGC V, 


1 KP  Uf  IRSTAT  .KRUK.R  XYZ.B  RE  L,1  MI  SCIP)  , KBHVT, 

2 TIME  ) 

3333  CCNTINUF 

ISinF=l 

CALL  ALLnCAINFXPTU.NBTUfMAXBTLf IBSTAT,LRSYST,IRTU, INVRTU, 

A BTUXYZ  f BPXl  ,B  XY  Z f BRAD  , BE  NV(  I , IB'JV)  ,KBl)SEGf  KBU  , 

1 KPL'K.NPU, 

2 KRU.NRTUt I TPSEGf IR  STA T , 1 NTVLR tRTUXYZ i KRUK, RGC V fRXYZ  t KPHVT , 

3 RJ AM, IPTU,RPX1,LPSYST,INVRTU, 

A TTP AJ .CATMSL.ZZ  SYS. SASYS.LBRSYS,! NFOPM, inui ) 

ISinE=2 

CALL  ALLOC AINEXRTU.NPTU.MAXRTU.I RSTAT.LRSYST, IRTU, I NVRTU, 

A RTUXYZ.RPXl.PXYZ.PPAO.RFNVI l.IRNV) .KRUSFG.KRU, 

1 KRIJK.NRU, 

2 KRU.NPTL, I TRSFG, IR  STAT.INTVLR.BTUXYZ ,KBUK, BGC V , PX YZ , K RHVT , 

3 RJ AM, IRTU.PPXI.LRSYST.INVBTU, 

A TTRAJ.DATMSL.ZZSYS, SASYS.LRRSYS.lNFORM.IDUl ) 

iriNPHASF.LT .6)  GO  TC  3RC 
ISinF=l 

CALL  WPNTRMI KBU.KPUSFG , 

1 I TP  5 EG,  IP  STAT.KPU.lRSYSr.IRrU.MAXPTU, 

2 INFORM, L PR  SYS ) 

IS  I0E  = 2 

CALL  WPNTRMI KRO, KRUSFG, 

1 ITRSEG, IBSTAT,kBU,LRSYST,IRTU,MAXBTU, 

2 INFORM,!  RR  SYS  ) 

ISIDE=1 

CALL  ACMTRMINBTU  ,KRU, I P S T A T ,B TUX YZ , I R TU , I NVR TU, M AX PTU , 

1 KPU, IRSTAT.LP SYST, IP TU.MA XRTU, 

2 OATMSL) 

ISinF=2 

call  ACMTPMIMRTU  ,KPI),  irstat,rtuxyz,irtu,i  NVPTU.MAXRTU, 

1 KPU,  IBS  TAT, LP SYST,  IRTU, MA XRTU, 

2 CATMSL  ) 

ISinF=l 

CALL  ST  ATUSI NPTU  ,INVPTU,KBUSEG,IBTU,NE  XRTU, KPU, I TRSFG, I PST  AT , 

A max PTU, I BSYST.BGf, INTVLP.NBG  ,NBU, 

1 KPUSFG, IP  ST AT,  KPU, IRTU, I TRSEG, 

2 INFORM, LPRSYS) 

ISinE=2 

CALI  STATUS! NR  Tt, INVRTU.KRUSFG ,I RTU.NF  XRTU.KRU, I TRSEG, IPST AT, 

A maxptu.LPSYST.PGC.INTVLP.NRG  ,NRU, 

1 KRUSFG,  IPSTAT,KBU,IRTU,IT0SFG, 

2 INFORM,! BRSYS) 

IS  inp  = i 

CALL  USTATIKPU,  I R S TA  T , I TR  SFG  , NBTU , K BUK , 

1 NR  TU,  INVRTU.IPTU, 

2 INFORM) 


N-  80 


TIIO1500 
TILQ1510 
T ILni5?0 
TILni530 
TILOISAO 
TIL015S0 
TIL0156Q 
T IL015T0 
T IL3  ISRO 
TIL01590 
T ILr'1600 
TIL01610 
TILni(S20 
TILni630 
T IL016A0 
TILOlfiSO 
T ILni660 
T ILni67n 
TILO16R0 
TI Lni690 
TILOlZOn 
TILOITIO 
TIL  01 720 
T II  01  730 
TIL017A0 
TIL017SO 
TU  01  7ftO 
T ILni770 
TI LOl 780 
T ILOl  790 
T ILOIROO 
TILOIRIO 
TILOIPPO 
T ILniR30 
T ILOIRAO 
T 11  01850 
TILO1860 
T IL01R70 
T ILOl PRO 
TlL'^I  800 
T U 01900 
T 1 1 0 1 9 1 0 
T I I/’ 19  20 
TIL01930 
TU'U9<in 
T1L01950 
T It  ni9f,0 
TIL  U970 
T ILT-ImrO 
T I L ''1990 

T ILOZOOO 
TU  02010 
T un2020 
T 1 102030 
TILn20A0 


ISIDF=2 

CALI  USTAKKOU,  IHSTAT,ITRSEr,,NRTUfKRUK, 

1 NBTt),  INVRTUf  I»ni, 

2 l^FPPM) 
leO  CONTINUE 

IF{  JPRINT.FO.O)  0,0  TO  39C 

jp«int=o 

TPP INT^time+prsTFP 

IF( TPR INT .OT.PSTOP I TPPINT=100. 

IF( TPR  INT  .LT  .PSTAPT)  T PR  I NT  = P S TAR T 
I F(  IM  ISC( 7) .EO.O  I GO  TO  390 
ISinE=l 

CALL  SNAP!  KPn,NRTU,LP  SYST.LRR  SYS  tKB USFG , I TBSEG , I NF CP^t 

1 IBSTAT, IBTU, I NVPTLfBTUXYZf  MA XBTU t NA MRU , NABS S , RXY Z , 

2 RXYZ f RTUXYZ ,KPU) 

IS inF=2 

CALL  SMAPIKRU.NP  TU.LP  S YS T , LBR S YS t KR USFG , I TRS EG , I NF CP m , 

1 IPSTAT,  IRTU,INVPTU,RTUXYZt  MAXR TU, NAMRU.N ARS S i RXYZ t 

2 BXY7, BTUXYZ ,KPU) 

IF(NPHiSF.LT.2)  PFTUPN 

3S0  TLAST=TIMr 

T IMr=T  IMF+SSTEP 
IF! T IMF  .LT  .T  IMEB  ) GO  TO  3 
3S5  CONTINUE 
RETUPN 
FN’O 


T ILO20S0 
T IL02060 
TILn2r)70 
TILOPOBO 
TILfI2090 
T ILn2100 
T IL021 10 
T II  02120 
TILn2 130 
TILn2l^0 
T 1102190 
TIL02160 
T IL'^2170 
Til  02180 
T IL02  190 
TIL07200 
T I t.npPIO 
TIL02220 
T IL02230 
TIL022An 
T U 02290 
T 1102260 
TILO2270 
T 1L022R0 
T I L02290 
TIL02300 


I 

I 


SLPPOUT  IN'-  HVTGT  (KVEC  ,NWC. , I NTVLW  ,WGC  ,WGCV, 

1 KTU, ITSTATfKTUK.TXYZtTRELtI  VALfKHVT, 

2 TIMf  I 

CIMFNSICN  TPFLIA,  I I,  I TSTATI  1 » ,KTUK(<»,1  ) f I NTVLWm  ,WGC(8  ,6,1  I , 
I WGCVI  P,5,ll,TXYZ(90,l),KHVTm 

CIMENSION  LHVT(5C) 

N FVT  = 0 
VAL  = I VAl 

IF  ( VAL  .LT,  U I GO  TO  1 19 
CO  llO  ITGT=1,KTU 
KFV=KHVTI ITGT)/1CC 
IFIKFV.FU.OI  GO  TO  lie 
'<FV=100 

IF( I TSTATI ITGT).LT.2»  GO  TO  llO 
IF( VAL .GT.TRELI A, ITGT ) ) GO  TO  llO 
IF| MOOl KTUK I 2, I TGT I /I CCOOCO, 10).  NE. I ) GO  TO  llO 
KHV= 1 IOC 
NLVT=MHVT* I 
LFVTINHVT )=ITGT 
I 10  K FVTI  ITGT  ) = KHV 

I F(  NHVT  .FO  .0  ) GO  TO  115 

ro  11 A IG=l,NWG 

LFG=IAPS(  INTVLWI  IGI) 

nFLT  = T IMF-WGC(LEG,  1,  IGI 

V,X  = WCC(LFG,2,  lGI*WGr,V(LFG,l,lGI*DELT 


HVTGOOlO 
HVTG0020 
IA/Tr.n030 
HVTGOO AO 
HVTGOOSO 
HVTG0090 
HVTG0n70 

HV  TGOOPO 
MV  TGOOOO 
HVT  GO  100 
HVTGO  1 10 
HVTGD  120 

MVTr.nnn 
MV  T GO  l AO 
MV^GOISO 
MV  TGO 1 60 
PVT  GO  170 
HVTGO  I BO 
HVTGO  IPO 
HVT GO  700 
HVTG0210 
HV  TG0220 
MVT  G02  TO 
HVT  GO 2 AO 
HV  TGO 2 90 
^JV  TGO 2 60 


i 

1 


N-  B1 


GP2=l.F50 

j or  113  I = 1,NHVT 

|1  ITGT=LHVT(I) 

'i  TX  = TXYZ  ( irr.T,  2) 

* TY=TXYZnTGT  , 3) 

rx=Tx-wx 

OY=TY-Wy 
X=nx*r)x  ♦DY^OY 
IFIX.GT.GB?)  GO  TP  113 
GB?»X 
IM  IN=  ITGT 

113  CONTINUE 
KFVT(  IG)=IM1M+KHVT(  IG) 

IF( KVFC .EO  .0 1 00  TO  114 
IF(  INTVLWl  IG*18).F0.  1)  GO  TP  114 
ITGT=IMtM 
IMTVIWI IGl^in+LFG 
WGC( 1,5, IGJ=TXYZ(ITGT,2) 

WGC( 1,6,1 G)=TXYZ( ITGT, 3) 

114  GPNTINUF 

115  KHVT(  1P)=MHVT>KHVT(  IB) 

FFTURN 
FMD 


MVTG0270 
HVTG0280 
MVTGO2  90 
(-VTG0  300 
MV  T GO  310 
HVT 00320 
HVTG0330 
MV T GO  340 
HVTG0350 
HVTG0360 
HVTG0370 
HVTG0380 
HVTG03O0 
HVTG0400 
MVTG0410 
MV  T GO  4 20 
HVTG0430 
HVTG0440 
HVTG0450 
HVTG0460 
MVTG0470 
HVTG04fl0 
HVTG0490 
HVTG0500 


SCRBOUT  INT  GCOA  TA  (GC  ,GG  V , NG  , I N TV  AL , XR  , YBl 
DIMEV  SIGN  GC  ( 8,  6,1  81  ,GCV  (8,5  ,18)  ,I  NTVAL  (I  ) 
RATA  PI, PAD/3. 141593,  .0174533/ 

INTVALl ’7) =XR 
lA'TVAL  ( 28  )=YR 
RP  100  1=1, MG 
IMTVAK  I>1«)=0 
IMTVAL  (0  = 7 
RP  100  J=?, 8 
FV=GG( J,5, 1 ) 

K = HV 
F=K 

K =(  HV-H  )♦  nO0.+  .9 
V=K 

H=H*P  AR 

GRV( J, 5,1 )=M 

1F(  H.LT  .pi  ) M=PI  ♦.  5-H 

IFlH.GF.P!)  H=P1*?.5-H 

GGVl  J, 1,1 )=V*CnS(H) 

Grv(j,2,  n=v*srM(H) 

Grv(j,3,i  )=GC(J,e,i) 

GGVl J, 4, I )=V 
100  CRMTIMUF 
PFTOPM 
EMO 


GG.RAOOIO 
GCnA0O?O 
rr 040030 
rcnA0040 
GR 040050 
GrRA0060 
GG1)A0070 

cr OAOORO 

ORf^AOnoo 
RTRAOIOO 
GRRAO 1 10 
r.rnA0i20 

GRRAOl 30 

GRP  AO  140 
r.COA0150 
GGOAO  160 
RROAO  170 
cm  AO  180 
GRRAO 190 
GCRA0200 
GRRA0210 
PR  P AO  2 20 
GRP  AO  7 30 
omA0  240 
ORRAOPRO 


SURRriJTlMF  SONARM 

CSONAB  1 5 5 8 12 

rrjMMnN/r50NAR/NSON,NSONMXtNBSCN,NRSONtLASONtNAMSnN(  2t  15)  t 
1 KSrNTY(15)f  SnNSYS(12f  15) 

CrMMTN  /SHNCRV/  IBA.IBBt  inA,inB,IBOTTMtIACTrVtSRANGF(17), 

1 SMFPIT(17) 

IF(NSON.FO.C)  RFTUPN 
cr  100  1=1, IDB 

100  SPANGF(  I )=ALOG«  SRANGE  ( I >*.<»93A) 

!F<  tPOTTN.FO.O)  GO  TP  IIC 
IA=IBA 
IP=  IPB 
GP  TP  115 
110  IA=inA 
IP= IPB 

115  m 250  IS=l,NSnN 
IPAS5=l 
iroL=i? 

SM=50NSYS(  11,  I <;)-(  SPMSYS  (8, 1 S)-S0NSYS(9,1  S)  )-SONSYSaO,  15) 

GP  TP  160 
1*0  FPASS»? 
irOL=6 

SM=.5*(  SPNSYSll,  IS  )«-SPNSYS(5,I  S)  - ( SPNSYS  (2  , I S ) -SONS  YS  ( 3 , IS  ) ) 
1 -SPNSYS <4, IS ) ) 

l(C  SM=ABS(  SM  I 

IFISM.CF.SMFRITl lA))  GP  TO  200 
Bw=0.  1 
GC  TP  225 

2C0  IF( SM  .1 T.SMER  IT(  IB  ) ) GO  TO  205 
PH=SP  apcfi  ip  ) 

GP  Tn  220 
2C5  I=IA 
2 10  I = I + 1 

IF(  I .GT  .IP ) GO  TP  2CC 
SMI=SMFP 1T( I ) 

TF(  SM.GT.5MI  1 GP  TP  21C 
J = I-  I 

SMJ  = SMEP  IT( J ) 

X<:  = ( SM-SMJ  ) /(  SMI-SMJ  ) 

PM  = SR AMGFI J ) 

(JM=p»  + xS*(SRANGF(  I )-PM) 

220  PM=FXP(PM) 

225  SPNSYSl  irPL  , IS)*RM 

ir(  IPASS.FO.  1 ) GO  TP  150 
250  CONTINUE 
PFTURN 
EMP 


SPNAOOlO 
5PN A0020 
SPNA0030 
SPNAOOAO 
SPNA0050 
SONA0060 
SPNA0070 
SONAOORO 
50NA0090 
SON AOlOO 
SONAOllO 
SON A0120 
SOM  AO  I 30 
SONAO lAO 
SON  AO  150 
S0NA0160 
S0NA0170 
SPNAOISO 
5PNA0l«50 
SPNA0200 
S0NA0210 
SPNA0220 
SPNA0230 
SONA0240 
5PNA0250 
SPNA0260 
50NA0270 
SONA0280 
S0NA0290 
SON A03n0 
SONAOilO 
5r)NA0320 
SON  AO  330 
SONAO3A0 
SON AO350 
SON  30360 
SPN  A03  70 
SON  AO:iPO 
Sn,|4O3O0 
SPNAO^OO 
SPMAOA  10 
SPNA0A20 
SPNA0530 
SPNAO^AO 
SONA0550 
SPNA0<.60 
SPNA0A70 


SUBROUTINE  SYSTEM (KPXS , KPLA T, KSY ST, NPL  AT,N AI R ,NS YS ,R ADM , 

1 LPRSYS,  IBR  s,lFNSYS,N')NIT,KUK,LSYST,IGPA!R,NWU,NWG,IST  AT, 

2 PX  l,SAMDAT,WPNOAT,nATMSL ,AIRCPT ,NVALT , I ACT  I V , SCNSYS,  TT R AJ ) 
CPMMPN/PFVir E/  N l,N2,N3,N4,N5,N6,N7,N8 ,N9,N10,Nl I , M2 

COMMON  /PATTRY/  NP A TT , M I SRAO ( 2 , 1 0 ) 


SYST  001 0 
SYST0020 
SYST0030 
SYST0040 
SYST0050 


N-  83 


lUiS 


r rr'"’;  Kf*  xs(  , 1)  , KPLATd  ) ,KSYST(  n .KSTEMP  (^5  ) ,RFT  A(  2), 

1 l?FTA(2),^AOP(3  6fn,LASB(5)fLSACI5l  fLJ4M(5)fLASi4(S),ir'llS), 

2 LAa(  c)  ,LTR(5)  ,LPF  SY'UJ.LSYSTU)  ,KJ  K (<» , 1 ) , LSA  P(  10) 

r iMPr  s irr'  ir.p air  ( i ) ,^  wiK  i ) , i sta T(  u .LS  ys  ( 1 1 ) ,ltypp  u I ) , 

I PX  K 12.  1 ) .WPNOATI  15,  1 ).  S AMO  AT  (20,1 ) , OA  T MSL  ( 2^,  , I ) 

2,  Sf'N<;YR(  12,  1 ) ,ttPAJ(50,  1 ) 

TATA  LTYPT/2*l,e*2,2*3/ 

TATA  L5Y5/ 20,  12, 0,-  1, 12, 22, 16, 23, 0,12,0/ 

JPACK ((  M.LCHL ,LS  ) = Mnp(NM, 100  I ♦ 1 0 COOOO^ ( NM /I  00) * 1 OOOOvLC OL* 100+ LS 
NAM Anr=c 

IF(AAIR.F0.e2)  A'AMAnp=200 

NSUH=NA  IP  ♦ 1 

N5;HlP=NAlt>-  1 

N' AM  2=1000000 

NAM3= inCOOO 

NA  M/v=  ICOOO 


SY  ST0060 
SY  S TOO  70 
SVSTOOPO 
<^YST  OOQO 
SVSTO  100 
<;y<;toi  10 
SY5T0120 
SYST0130 
SYSTOl^O 
RYSTO  150 
SYSTOl/,0 
5Y5T0170 
SYSTOl  AO 
SV  STOl  00 
SVST0700 
SYST0210 


nr  100  tPL AT-l,A PLAT 
NAMFPL  = KPI  AT(  IPl AT) 

NAMP^NAMmi  /n  AM2 

IF(  NAMP  .L  F.N'SUB  .AMO.  NA  mp.GF  .NSHI  P)  GO  TO  10 
WRITF(A'6,6100  ) IPLAT.NAMFPl 
FALL  PAFf 

6100  FCPPAT( //5X,  'PL  A TFriRM  ' , 16  , • CnDF  = ',llO,*  MOT  A SHIP,A/r, 
5TPP 

10  NSAM=0 
NFAr,=  0 
A'J  AM  = 0 
N ASW=0 


SVSTO  720 

SYST0230 
SYST02A0 
SYST0250 
SYST0260 
SYST.0270 
PR  S'JP*  )SYST0280 
SVSTO  700 
SVSTOOOO 

sYSToo  n 

SY  ST0T20 
SV  ST0330 


MTn=0  SV  ST  035  0 

ArM=o  SVSTn?50 


NAA=0 
A'ASR  = 0 

rn  MO  TSYS=1,NSYS 
no  K'TFMP(  isvs  )=KP  XS  ( I SYS,  I PLA  T) 

PFTAt  l)=n. 

PFT A(  2 1=0. 

LPFT A(  I ) = 0 
LPFTA( 2)=0 

I F(  N'AMP-NA  IP  ) 121,122,123 
121  1PASS=1 

K SYS  = '^AMAnn+  6 51 
rr  Tr  i lo 

127  IPASS=2 

KSYS  = NAMArin+657 
r(i  Tf  no 
123  IPASS=2 

KFYS  = f'A‘'Ann+t55 
no  CALI  SYSTST  (KSYS,LS,NAMS,KSTEmP,NSYS 
IF(IS.FO.O)  GO  TO  150 
Lcni  =Mpr(K  SYST( L T ) , 100) 

IFILC.Pl  .10.0)  GO  TO  13C 
ir(RAnM(A,Lr.nL  ) .IF.O.)  go  to  130 
mptf^PATMI  OG.LCriL  )♦.  1 
I F(  Mppf  .gT . I ) Moot  =2 
P=R  ArM(  l.LCOL  ) 


SVST036n 
SY  STOOTO 
SVST03H0 
SYsr  nopo 
SYST0500 
Svstoa  10 
SVSTO A70 
SVST05  30 
SYST0550 
SY  ST0550 
SY  ST0A60 
SY  ST  05  7 0 
SYSTOroo 
SYST05OO 
SySTOSiI  ) 
SYST051 0 
':v  ST  057  0 

NAM3)  SYStOSOO 

SYST  OSAO 
svsrosso 

SYSTOSSO 
SYSTOS  70 
SY  STOSt'O 
SY  ST  OSQO 
SYSTO600 


N-  fl5 


IF(P.LF.RETA(MnDEI)  GC  TO  130 
PFTA( MrOF  ) *B 
LPFTA<MODE  )*LCOL*lOO>LS 
GO  TO  130 

lAO  |F( IPASS.F0.2J  GO  TP  150 
IPAS‘;=2 

KSYS  = NAMAr)P«'652 
GP  TP  130 

150  ICPL=12-IACTIV*6 
IPASS=1 

KSYS=NAmaPD4653 

RSPNR»0. 

Nr0NR*0 

152  CAUL  SYSTSTJ KSYStL StNAMS,KSTEMP,NSYS,NAM3l 
1F( LS  .EC.O)  GO  TO  155 
LGOl =Mnn(KSYSTILSl ,100) 

IFJLrni  .FO.O  ) GP  TO  152 

p=snNSYS(  lent  ,Lcni  ) 

IF( RSONP.GE.P)  GO  Tp  152 

PSPMR»P 

NSnNP=LCPL*lCC-»-L  S 
rp  TP  152 

155  IF(  IPASS.FQ.2)  GC  TO  2 
IPASS*2 

K SYS=NAMAnn-»655 
GO  TO  152 

2 IF(NAMP-MAIo ) 20,28,28 
20  K SYS=NAMAnn*671 

2C0  CALL  SYSTST  ( KS  YS  , L S , NA  MS,  (C  S TE  , NS  YS  ,NAM3  ) 
IF(LS.FO.O)  GO  TO  2^0 
LPS=I,  S 

I COL  =MPn(K  SYST(LS)  ,100) 

I F(L  cm  .FO  .0  ) GO  TP  200 

ir(P  Ar:^«(  A,LCPL  ) .LF.O.  ) GO  TP  200 

NR  Ar=NAMS/NAM  A 

GP  210  I=1,NPATT 

LPAr=M  ISPAPl  1,1  ) 

IFJNPAP.MF.LPAO)  GO  TP  2 10 
I MI  S=M  I SRAC(  2,  I ) 

GP  TP  215 
210  CPNTINUF 
GP  TP  200 

215  CALL  SYSTST  ( LM I S , LS  , NA  M P , K STF  MP , NS  YS  , N AM<, ) 
IF(LS.FO.O)  go  to  200 
JCnL*MOC(KSYST(LS)  ,100) 

IFIjrOI  .FO.O)  GO  TO  20C 
A v=MOn( NAMM, 10000) 

TF(NM.FO.O)  go  TP  200 

No=Mnni NAMs, loooc ) 

IF(NR.FO.O)  GO  TP  200 
N5AM*NSAM ♦ 1 

LSAM(NSAM)«JPACK1NR,LCaL  ,LRS) 

NSAM«NSAM»l 

LSAM( NSAM)>JPACK<NM, JCOLtLS) 

GO  TP  200 


SYSTn6  10 
SYST0620 
SYST0630 
SYST06AO 
SYST  0650 
SYST0660 
SYST0670 
SYST06P0 
SYST06P0 
SYST0700 
SYST0710 
SYST0720 
SYST0730 
SYST0740 
SYST0750 
SYST0760 
SYST0770 
SYST07B0 
SYST07q0 
SYSTomo 
SYSTOP  10 
SYST0P20 
SYST0830 
SYST0P<,0 
SYSTOR«;0 
SYST0R60 
SYST0870 
SYSTORBO 
SVST  OPOO 
SYST0900 
SYST0910 
FYST0O20 
SYBTOOSO 
SVST0O<.0 
SV  <;T09S0 
SYST0960 
SySTOPTO 
SYST09n-) 
SVSTPPOO 
SY^T  noo 
SYST  10  10 
SYST 1020 
SY-^T  I 030 
'iYST  1040 
SYST  1 0*.0 
SYST  lOfiO 
SYST 1070 
SYST 1 TflO 
SYST lOQO 
SY  ST  11  00 
SYST  1 I 10 
SYST1120 
SYST 1 1 30 
SYST  I 140 
SYSTl 150 


K SY  s=N AMenn  + 75 1 
iP4<;s  = l 

CALI  SYST<;t  (KSYStLS,NAMS,K«;Te>*P,NSYS,NAM3» 
IF(LS.FC.O)  GO  TT  ?f>0 
NM  = Mr'r)(  NA“Sf  ICOOC) 

IFCNM.FC.nj  on  TO  2‘'>0 
Lf'^l.  =Mrr(KSYST»LSJ  ,10C) 

IFCLCOL  .FD.O)  GO  TO  2 5C 

nsal;=nsag+i 

I <;Ar.(NSAGi=JPAr.K(i‘  M.Lcni  ,ls) 

cr  250 

IF(  IpaSS.FQ.2)  go  to  2F 
IPASS=2 

KSYS=NAMAnn+752 

Gf'  TP  2 SO 

K':y  S=NA«Anf)  + 6ai 

CALL  SYSTST  ( KS Y S , L S , M AM S , K STF MP , NS YS , NA M3 » 
IFdS.FO.O)  GP  TO  30 
\>M  = MOn(  MAMS,  lOOOC) 

IFtrw.FQ.O)  GO  TO  2fiO 
LfPL  =Mrr(KSYST(LS) ,100) 

IFdCOl  .FO.O)  GCl  TD  2PC 
A JAM=NJ  AM  + l 

LJAM(  Nj  AM  ) = jpaf.K  (0,  LCDL  ,L  S) 

rn  TP  280 

ir(  NAMP-NA IP  ) 31, 31, AC 
K SYS=NAMAnn-*7  3 I 
iPA5;<;  = i 

FALl  SYSTST  ( K SY  S , L S , MA  M S , K S TF  MP  , NSYS  , NA  M3  I 
IFdS.FC.OI  GO  TP  320 
KV=Mn(i(  NA»'S,  1 COOC) 
iriNM.FC.O)  GO  TP  31C 

LrnL=Mrn(KSYST(LS) ,ioo) 

)F(|  C 1L  .FO.n  ) GP  TP  ?10 
N ASW  = N A SW  I 

L ASV.  (NASW  )=JPArK  (NM,l  rr.L  ,LS) 
cr  TP  310 

!»■(  tl’ASS.FO.i)  GP  TP  ^,c 

IpaS':  = 2 

K SYS  = NAMAnP«7Al 
CP  TP  3 10 

IF(NAM^-^■AIP  ) Al,A2,Al 
IPASS=3 

K SYS  = P AMAPP*  721 
rp  TP  A 10 
IPASS=1 

K ^Y  S = NA" APP*  7«  3 
cr  Tr'  A 10 
I PAS';  =2 

K SYS-=NAMAPr*  7flA 

CALI  SYSTST  ( kSYS,1  ',f:AMS,KSTFMP,NSYS,NAM3) 
ir(  I 5 .FC.O ) GP  TP  AA 
I 1 ='1l  P(KSYST(LS)  ,10C) 

I rn  r n .fo  .o  ) gp  tp  ai  c 
NMsPpPI  NAMS,  10000) 


SY  ST  1 160 
SVST 1 1 70 
SYST 1 1 RO 
SYST 1 top 
SYST  1200 
SYST121P 
SYST1220 
SYST  1230 
SYST 12A0 
SYST  12AP 
SYST 1 263 
SYST1270 
SYST1280 
SY  STl 200 
SY  ST1303 
SYST  1 310 
SYST 1320 
SYST1330 
SYST13AP 
SVSTI 3SP 
SYST1360 
SYST 1370 
SYST  1 3d0 
SYST1300 
SVST 1 AOO 
SVSTIAIO 
SVST1A20 
STST 1 A30 
SYST  1440 
SVST  14S'' 
SY  ST  1460 
SYST1470 
SYST 1480 
SVST1 400 
SYST I 500 
SYSTl SIO 
SYST  1 5 20 
SVST  1 53P 
SVST 1543 
SV  ST  I 5 50 
SVST  1 560 
SV  ST  1 5 T,1 
<:V5T  1 5M,T 
SVST  IST.  1 
SV  S T 1600 
SVST 1610 
SV  ST  1 630 
SVST  16  3(1 
SVST 1 640 
SVST 1 650 

S^s  r 166  0 

SV  S T 1 6 TO 
SV  S T 1 66  0 
SV  S T I 6 <10 
SV  STl  700 


IF(NM.FC.O)  GO  TO  410 

SYST  1710 

IFC  IPASS.EQ.3)  GO  TO  435 

SYST1720 

N4SB=NASP*-1 

SYST1730 

L ASPINASP  » = JPACK (NM.LrrLtLS) 

SYSTr7A0 

GO  TO  A 10 

SYST1750 

4?5 

NTP=NTP*1 

SYSTl 760 

LTP(NTB|=JPACK»NM,LCnL,LS) 

SYST  1770 

GO  TO  AlO 

SYST1780 

IF(  IPASS-2)  A3,A1,AR 

SYST1790 

A8 

1F(NAMP-NAIR ) 51t50t51 

SYST1800 

50 

KSYS=NAMAn04781 

SYSTIRIO 

GO  TO  510 

SYST1820 

51 

KSYS=NAMADn4761 

SYST1830 

510 

CALL  SYSTST  (KSYSfLSfNAMS,KSTFMP,NSYS,NAM3) 

SYST18A0 

IF(IS.FQ.O)  GO  TO  60 

SYSTinSO 

LCnL=MOD(KSYST(LS) ,100) 

SYST1860 

IFCLCOL  .FO.O)  GO  TO  510 

SYST1870 

NM=MnC<  NAMS,  10000 ) 

SYST  1880 

IF(NM.FO.O)  GO  TO  510 

SYST  1890 

ACM=NCM>1 

SYST 1900 

LCM(Nr,M)  = JPACK<  NH,  LCOL.L  S) 

SYST 19 10 

GO  TO  510 

SYSTiq20 

to 

IF(NAMP-NAIP  ) 70, tl,  70 

SYST1930 

tl 

KSYS=NAMAnD479l 

SYSTIQAO 

IPASS=l 

SYST1950 

6 10 

CALL  SYSTST  ( KSYS,LS,NAMS,KSTEMP,NSYS,NAM3) 

SYST 1060 

tF(LS.EC.O)  GO  TO  62 

SYST  1070 

LCOl =M0D(KSYST(LS),100) 

SYST  1980 

IFILCOI  .EO.O)  GO  TO  61 C 

SYSTIOOO 

NM=Mnn( NAMS, 10000) 

SYST2000 

IF(NM.EO.O)  go  to  610 

SYST2010 

NAA=N AA+l 

SYST2020 

L AA(NA6>=JPACK(NM,LC0L ,L S ) 

SYST2n  30 

GO  TO  610 

SYST20A0 

62 

IF(  IPASS.FO.2)  go  TP  70 

SVST2050 

IPASS=2 

SYST2060 

X SYS=NAMAPn*792 

SY  ST2070 

GO  TO  610 

SYST20Bn 

70 

CONT  tNUF 

SYST20O0 

K SH I P = 0 

SYST2100 

KAIR=0 

SYST2  1 10 

KSUB=0 

SYST2120 

K JAM=0 

SYST2130 

KR ArR=0 

SY  ST2  lAO 

KSONRsO 

SYST2150 

ISTART=IPRS41 

SYST2160 

ir(MAMP.FO.MSUP ) GO  TO  711 

SYST2170 

ITYPE=1 

SYST?  IPO 

CO  710  JTYnE=l,2 

SYST2  mo 

LrnL=LPETA( JTYPF ) 

SYST2200 

NM*BETA( JTYPE ) 

SYST2210 

!F(LC0L .EO.O)  GO  TO  710 

SYST2220 

KPA0P»1 

SYST2230 

IPRS-IBPS41 

SYST22A0 

LPRSYSC  IPRS )»«NM*100004LC0L )* 1004 J TYPE* 1041  TYPE 

SYST2250 

no 

CPNT  INUE 

SY  ST2760 

711 

I E(^S^^!R  .FO  .0  ) r,n  TO  718 

SVST2270 

K ^ONP=  1 

SYST72PO 

Ny=HSnNR*l C. 

SYST  7200 

1RHS=IPPS+1 

5YST2300 

L PRSYS(  IPRS  )=(NM*  lOCOO^N  SONR  » * 1 OO-*- 1 7 

SYST2310 

71fl 

IF(Nr*<.FO.O)  GO  TP  73 

SYST2320 

Itypf=12 

SY  ST2  330 

K S^I P=  1 

SYST2340 

cr  72C  1=1, MCM 

SYST  2 ISO 

IPPS=  I PRS»  1 

SYST2360 

LBPSYSC  tHPS)=LCM(I  )*lCC>r  TYPF 

SYST2370 

720 

CPNT INUE 

SYST7380 

73 

IF(6’ftSo  .FO  .0  ) GP  TP  74 

SY  ST?  300 

ITYPF=22 

SYST2400 

KSHIP=1 

SYST24I0 

nr  73C  i=i,N«SH 

SYST  2420 
SYST2430 

IPRS=  IPPS  + l 

SY  ST2440 

LPRSYSI  ipp  S ) = LAS8  ( I )*  ino+l  TYPE 

SYST2450 

730 

EPNT INUF 

SVST246n 

7^ 

IF(NAA.EC.O)  GP  TP  75 

EYST7470 

[TYPE =23 

SYST  2480 

K fl  1 K = 1 

SYST  7490 

HP  740  T=l,N4A 

SYST2500 

tPR  5=  IPR  <;♦  1 

SYSr7510 

L'’PSYS(  IPP  5 ) = LAA  M »4  lOO+I  TYPE 

SYST3520 

7^0 

CPNT INUF 

SY  ST2530 

7S 

iriMEAM  .EO.C)  GP  TP  76 

SVST  ?Si,0 

ITYPE  = '>3 

SYST  2550 

K7  IP=  1 

SYST  25f,0 

PP  750  1=  1, NS4'',? 

SVST2870 

IPR  s=  ieRS  + 1 

SYSr?5P0 

IPPSYEI  IPP  S ) = LSA  M(  I )♦  ICC  + I TYPE 

SY  SI ? 50  0 

IP0S=IP.PS  + 1 

SYST 2 600 

L mcsy  5(  Ipn  P ) =L  SAMI  !♦  1 )♦  100+30 

SYST ’61 0 

750 

CPNT INUE 

SYSTTSPO 

76 

IFINSAO.FC  .0  1 GO  Ti^  77 

SYST27.  1) 

ir(NA'3P  .F0.N5U8  ) GP  Tp  77 

SVST7640 

[TYP  3 

SY  ST? 650 

K A IR  = 1 

SY  S 12660 

rP  76  0 I = 1,NSAG 

S Y S T 2 6 7 "! 

IFPS  = IPFS+l 

SYST  2680 

L pnSYS ( I8P  5 ) =L  SAG!  I I*  lOO  + I TYPE 

SYST  2 

760 

CPNT  INUF 

SY  ST2  700 

77 

ir(NA5V.  .FO  .0  ) GO  TP  78 

SYST2710 

ITYP  C = ?4, 

SY  ST’ 770 

K «:UP=  1 

SY  ST ’ T30 

Of  770  1=  1,NASW 

SYST2740 

tPPS= I PP5  + 1 

SYST  2750 

1 PREY  SI  IPPS  )=I.ASWl  n*iro  + i TYPF 

SYST2  76  ) 

770 

CPNT  INI'F 

SY  ST2  7 70 

7J 

IF(n.j^r  .Fp.p)  r;r  tp  781 

SV  ST2  78’ 

I typf  = 15 

SY  S T2  TO,) 

KJAM=  1 

SVST2‘>00 

N-  flfl 


rr  780  r = i,K‘j4M 
IPRS=  IPBS+  1 

LPPSYSI  IRP<:)  = LJA'<(I  )«1C0-*-ItyPF 
780  CONTINLIF 

7ft  tF(^^TR.FC  .0»  r,n  TO  783 
ITYPF  = IF 
KSHIP=I 
K<;UH=  I 

rr  73  2 I=i,MTR 
1PPS=  IPPS  + 1 

L PR  SYS!  IPRS)=LTP  ( n*  lOC+tTYPE 
7F2  rrNTlMUE 

783  1 F(  M/\«P  .NF.NSHIP  ) GO  TQ  785 
KSY5=NAIP 

7830  CAll  SYSTSKKSYSfL  S,NAPS,KSTEMP,NSYS,NAM2) 

IF(  L S .FC.n  I Gft  TO  785 
IPRS=  IPPS*  I 

I pr5;ys(  ipp  s )=Mrn  (nams , no* I ccoooo+NAMs/inooo*inoF2o 
GO  rr  7830 

785  VASK xKP AGP FK SOME  * to 
maSK  = mask*  IC  + KJ am 

C 

F — TEw^'ORAPY  mission  constfaint  on  rfd  subs 

r F( ''A«P  .EO.M  SUB  .AN^.  NAMAOO.GT.O)  KSUP=0 

r 

M ASK  =MA  PK  « 1C  AK  SUH 
MASK  = Mf  SK ♦ ICtK A I P 
MASK  = YASK<'IC  + KSHIP 

r 

ir(NAMFPL/NAM3  .NT.  NAYAPO+6281  GO  TO  786 
I Ft KP APR. FO .0 » GO  Tr  786 

r. 

rr  7H5C  I =it 1 r 
IPPS=  IFPS  + l 
7850  LPPSYSt  IPRS)=0 

MASK  = (‘'AS‘'/1QC»«  IC04-1C0O011 
Cr  Tr  7P7 

786  IFt MASK  .FO.n  ) GO  TO  85 
76  7 IPRS  = r'>RSFl 

1 oRSYSt  IPo  S) =0 
rPRS=  f BRS+  1 
LPPSYSt  IPRS)  = C 
IPPS=  IpRS  + l 

LPPSYSt  1RRS)"=“ASKA  10+ moo  tNAMP,  10» 

7^  I rt  I PR  S.l  T.  I STAR  T ) GO  TO  85 

I AST=  I Pp  S 

I f-jgTH=LAST-ISTAR  Y+i 

APS  I^N  00  1 TP  NO 
rr  HOO  IU=  l.NUNI T 

I Ft  aiAmfpi  /jc  .KUK  t 2.  Ill  I ) GO  TO  800 
cr  Tl'  NO,  I 8Cl  ,802) 

PCI  LSYSTt  IL  ) = I 'TAP  T*  1 000000+ LA  ST*l  OO+I  PL  AT 
ASSIGN  80?  TO  NO 

cr  TP  POO 

“02  I SYSTt  IU)=I I8RS  + l)*lCCC0CC+(  1 8 RS+ LENGTH ) * 1 00+ I P L A T 


SYST  28  10 
SYST2820 
SYST2830 
SYST2880 
SY  ST285n 
SY  ST2860 
SYST2a70 
SYST2a80 
SY  ST2HQn 
SYST2O00 
SYST201 0 
SYST2‘»20 
SVST2'T30 
SYST2Q40 
SYSr2'750 
SYST2O60 
SY  ST2970 
SYST29Pr) 

SYST290f) 

SYST  3000 
SYST3010 
SY  STA020 
SYST3n20 
«:YST304,n 
SYST3050 
SYST  3060 
SYST  3070 
SYSTOOPP 
SYST300n 
SYST31 00 
SY  ST  31  in 
SYST  3120 
SYST  3 130 
SYST  3 180 
SYST7  isn 
SYST3160 
SYST  3 1 70 
SYST  31 00 
SYST  T 1 f'O 
SYST  3200 
SYST32  to 
SYST322’0 
SY  ST32  30 
SY  ST375i^ 
SYST  3250 
SY  ST  •>  ’60 
SVSr  T270 
SYSTT700 
SV  S I 3 7r>0 
SY  Sf  3 3 

SY  sr33tO 
fy  ST  3 320 
F V s T 3 ■«  1 O 
SYST  3 153 
SY  ST?  35  0 


rr  610  r=tSTaPT,L4ST 
tpp.<;=  [PPS  + l 

OIO  LP’  'iVSl  <:>=LSR  SYSd  ) 

IP(  IPRS.L‘'.LE\’SYS)  r.P  TP  600 
CAI  L PACE 

wo  ITF  (NP,  (.POO  ) IPO  6, 1 t NSYF,  ( LRBSYSCK)  ,K  = l , IRP6  ) 

STOP 

boCO  FPOMft  T ( //6X  , • LBP  SYS  APPAY  LFNGTH  E XC  FFPE  O'  »/ /6X  , 2 1 10/ ' 
I ( tx,  10  1 10)  ) 

PCO  rn'jTiKiiiF 
CP  T'-'  ICO 

FS  PP  PSO  IU=  l,^UNl  T 

ir<  NAMfPl  .NF  .KUK  1 2,  lU  ) ) P.o  TP  8S0 
L 'YST(  lU  )= IPLAT 
8 50  Cr'MI\'UF 
ICO  roMTINUE 

OF'  QOO  IU=1,MUN  IT 
ISTATI IU)=1 
L S=L  SYSTl  lU  ) 

ISA  = L S/  1000000 
I F{  ISA.FO  .0  ) on  TP  000 
1 SP=PQn(L S/ 100,  10000) 

«a<;k=lprSYS(  ISP  ) 
rTYPF=CPC( «A  SK,  1C) 
ir(  TTYPF.NE. 2)  on  TO  oco 
ivFr=  1 

F'PL  =K  UK  ( 2,  lU  )/  lonoo 
irAP=o 

ir(v(lP,(Y|ASK/lCOOCOno,  10)  .CO.  0)  1VFC=0 
ir  = KiiK(  3,  III) 

irp=  I r.P  Aip(  ic)/icc 

1SS= 1 SB-1 

PP  ess  1=  I SA , rss 

IF= 1- t 

TF( ( PPSVSI  I ) .FO  .0)  OP  TO  PS6 
8 5'=  rC’^'TI^)UF 
856  rPMTINU'" 

I F(I  F .1  C.  ISP- .:)  IVFr,=0 

IPASS=1 

J'-=0 

P6,0  I l.P=^  WUI  IG  ) 

II A = IMP  / im 

IIIB=  Il)At‘"in(  lUH  , 100  )-  1 
ISYS=  12 

pn  f>7i)  IU!  = IUA,IUD 
I <:=l  fySTI  IDI  ) 

I FPA  =L  s/ 1000000 

IF ( I SUA  .ro  .0  ) GP  TO  PTC 

iFijp=Yi'r(i  F/ico,  100001 

PASK  =l PPSYSI  I SUP ) 

I FUP= I SUP- 1 
Kw=Mrn( MASK , 10) 

TF(  IVFP  .ro  .0  ) r,P  TP  86  7 

I F( ''•PCI  "A  SK/ lOOOCOOO,  10  ) .FO.  1)  (iO  TO  P67 
isi=:  r siiA-  1 


SY  ST3060 
SY  ST3i70 
SY  ST  '•080 
S yST  XXOO 
SYST3^00 
SYFTOAIO 
SYST042O 
SY  ST34  j 0 
SY  SF34A0 
SYST  3050 
SYST  O'iSO 
SYST3A70 
SYSTPAP.O 
SY  STOAno 
SY  ST  3500 
SY  ST3S10 
SYST3S20 
SYST3S  30 
SYST3SA0 
SYST3S50 
SV  ST3  560 
SYST  3S70 
SYST  35P0 
SYST  35Q0 
SYST3600 
SYST3510 
SY  ST3670 
SYST  3630 
SYS’’  36A0 
SYST  3650 
SYST  3660 
SY  ST3670 
SYST36P0 
SY  ST’’ 600 
SY  ST  3 700 
SYST3  71  ^ 
SYST  37'>0 
SYST37^ 1 
SY  STO  7<.0 
SV  ST3  750 
SY  STo760 
SY  ST3  7 ■’  1 
SV  S T •>  7;,  1 
SYST  •>  700 
SV  ST  T .1  0 A 
SV  ST3  M A 
SYST3P20 
SVST3  lAO 
SYS  r A p/,0 
SVS I Ap  50 
SV  S T 3P«  0 
SV  S T A o 70 
SV  S T A Of  o 
ry  S T 3 Arjo 
SY  ST  3<)nO 


865 

ISI=ISl+l 

SYST39  10 

I F(  IS  1 .GT  . ISUB ) GO  TO  E67 

SYST3920 

IFIMOni  LBRSYSnS  I ) , 100)  .NE. 

ISYS)  GO 

TO  865 

SYST3530 

866 

IS= IS+l 

SYST3940 

J S=J  S+  1 

SY  ST3550 

IF(JS.GT.IO)  GO  TO  867 

SYST3960 

LPRSYSI  IS)  = IUI*100*10 

SYST  3970 

867 

IF(  ICSR.GT.O)  GO  TO  870 

SYST3980 

IF(KW.NE.l)  GO  TO  870 

SYST3990 

no  869  ISI=ISUA, ISUR 

SYST4000 

KSYS=LBRSYS(  I$I  ) 

SYST4010 

IFIKSYS/IOCCOOO  .EO.  0)  GO  TO  868 

SYST A020 

IFIMDOI KSYS, 100)  .NF.  20)  GO 

TO 

868 

SYST4030 

IF{^«^n( KSYS/ioOf  icooo)  .nf. 

NPL) 

GO  TO 

868 

SYSTAOAO 

ICAP= lUI 

SYST4050 

L PRFYSI  IS9-2)*( IUI*100C0+I SI  )*100 

SYST4060 

CO  TP  870 

SYST4070 

868 

CPNT IMOE 

SYST40B0 

870 

COv)  T IN  tJE 

SY  ST4050 

IF(  IP  ASS.FO  .2  ) GO  TO  <900 

SYSTAIOO 

IF(  IG9  .EO.O)  GO  TO  SOC 

SYSTAlin 

CO  875  1=  1, NWG 

SVST4120 

IFIMOOI  IGPAIRII  ),100)  .NE.  IGB) 

GO  TO 

875 

SYST4130 

IG=I 

SYST4140 

IPASS=2 

SYST4150 

GO  TO  860 

SYST4160 

875 

CONT INUE 

SYST4170 

<7CO 

CONT INUF 

SYST41R0 

CO  <905  1=1,NUNIT 

SYST4150 

<5C5 

LSYSTI  I+NUNIT  1=1 

SYST4200 

ItlN  I T =N  UN  I T 

SYST42in 

IUB=2*N LN  IT 

SYST4220 

CO  o?0  IP ASS=1, 1 1 

SYST4230 

I(IA=  lUN  IT*  1 

FYST4240 

IF(  lUA  .CT  . lUB  ) GO  TO  51  8 

SYST4250 

KSYS=LSYS< IPASS) 

SYST<.76n 

KTYPF=L  TYPF(  IPASS) 

5YST477r) 

CO  512  IU=ILA,IUR 

SYST42R0 

JU=L  SYSTI  I U) 

Sv  ST4203 

LS=t  SYSTI  JU) 

svsT/,3nn 

ISP  = Mon(LS/ ICC, I COCO 

SYST43  10 

IF(  IS9.GT  .0)  GO  TO  507 

SV  ST4320 

IF(  KSYS  .NF  .0  1 GO  TO  <912 

SY  ST433n 

in  MODI K UK  I 2, JU )/ 1000000,10) 

.NF. 

KTYPE) 

GO  TO  512 

SYST<t340 

5C6 

IUMIT=IUN IT+1 

SVST4350 

K=L SYSTI lUNIT) 

SYST<,360 

LSYSTI lUNlT ) =JU 

SYST<,370 

L SYST  I IU)=K 

SYST4380 

CO  TP  0 12 

SYSTATf’O 

CC7 

►»flSK=LPPSYSI  ISB  ) 

SVST440n 

I FI  MODI  MASK,  10)  .NF  .KTYPE)  GO 

TO 

912 

SVST<.410 

IFIKSYS)  <910,506,508 

SYST4420 

8C8 

ISA«L  S/  lOOOCOO 

SYST4430 

1SR*1SP-2 

SYSf4<,<,0 

CO  905  I=ISA,ISR 

SYST445n 

Iw-A0**e  342  LIV  AtKObKAtt  tUKK  UALLAb  I tA  VOUteMI  bYbItMb  OIV  F/6  15/7 
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unclassified  VSD-00.1636-VOL-2D-REV-A  NL 
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I PlMpniLPPSYSl  r ),  lOOl.FO.KSYS)  GH  TO  906 

SVST4660 

•JCO 

CrNT IMUF 

SYST6670 

CF!  TP  912 

SYST  AA(?0 

9 10 

IFIPASK  .r.T  .ICCOOOCO)  GO  TO  906 

SYST469n 

9 12 

Cr^TlNllP 

SYST4500 

919 

1 5YST(  IUB-HPASS1=0 

SYST4510 

IP(  IUN1T.lt. lUA  ) GO  TP  920 

SYST4520 

LSYSTl  UJP-»IPASS)=ItlA*irnOC+IUNI  T 

SY  ST45  30 

920 

COM  T INUF 

SY  ST4540 

rn  C4c  iii  = i,NUNn 

SYST4550 

LS  = L5YST1  lUl 

SYST4560 

ISR  = “oc'(ls/1C0,  ICOCC) 

SVST4570 

IF<  ISR.FO.O)  GO  TP  96C 

SYSTASPO 

M?SK=LPRSYS( IS9 ) 

SYST4  590 

!F(  MASK  .L  T.  lOOOOOnO)  GO  TC  92  5 

SYST46n0 

LP?  SYS(  ISO-  1)=9999999C 

svs’^^eio 

GP  TO 

SYST4620 

925 

rsL=isP-? 

SYST4630 

ISA=L  S/  lOOOCOO 

SY  ST4640 

IPL aT=Mnn( LS 1 100 1 

SYST4650 

NMSH!P=0 

SYSTA660 

NMAIP  =0 

SYST4670 

KTYPF=Mrn( MASK, 10 ) 

SYST46nO 

rr  935  is=isa, I SL 

SYST4690 

J5  = LBRSYS (IS  1 

SYST4700 

KSYS=Mrn(  js,  100) 

SVST4710 

iroi =Mrn( JS/ loooo,  loo) 

SYST4720 

IF(KSYS.ME.121  GO  TO  92fl 

SY ST  A 730 

926 

K=TTR  AJ(3,  irOL  )*l.l 

CYSTA7A0 

927 

IT(K .GT  .MMSHIP)  NMSHIP=K 

SYSTA750 

GO  TO  935 

SYSTA760 

929 

1F(KSYS.F‘C.16)  GO  TO  929 

SYST6770 

K^WPNCA-'l  1,  ICOL  )*?.5 

SYSTA7P3 

1 »■(  KTYPF  .EO  .2  ) K = AIRCPT*  PXl  ( NVAL  T,  I PL  ATI  *2. 

SYSTAT90 

GO  TP  927 

SVST Aqpo 

9 29 

ir( K SYS  .F0.22  ) GP  TP  926 

SVSTASIO 

IF(ksyS  .MF.23)  GP  TP  931 

SYSTA320 

K=AIPrPT*PXl (NVALT, tP( AT)*2. 

SVSTAP  30 

900 

I P( K .GT  .NMAIR ) MMAIR=K 

SYSTA9A  ■) 

GP  TO  935 

SY  STA350 

901 

IFIKSYS.A  r.30  .ANP.  KSYS.NF.63)  GO  TP  935 

SY  STA960 

K=SAMrAT( 1, ICOL )*3.5 

SYST^RTO 

GO  TO  c-OO 

SYST AMPO 

9 05 

r.PPT  tN(iF 

SYSTA-Vn 

IF(NMAIP.GT.999)  KiMAIP=999 

SVSTA900 

!F( WMSHIP  .GT  .999  ) NMSHIP=999 

SVSTAO 10 

LPoSYSC  ISP- 1 )=NMA  IP*  lOOOCO+NMSHI  P*1004-90 

SY  ST  Aor'P 

9«0 

CPNT INUE 

3YST A93n 

RETURN 

SYSTAOAO 

FAT 

FVST  A950 

SYSTST  (KSYStL  S»  NA^'SYStKST  FMP  tN>r;  , LOW  J ^ycTnnn 


nooTrio  n o oooDrvonono 


i 


pr  100  i5;  = i,NSYS 
K’AMSYS-KSTFMPC  I S) 

IF(NAM5iYS/L0  IV  .NF.  KSYSJ  GO  TO  100 
LSalS 

KSTE^PI 1S)=0 
R FTIPM 
ICO  CONTINUF 
LS=0 
RETURN 
END 


SYST0030 
SYST0040 
SYST0050 
SYSTOOfrO 
SY  ST0070 
SYSTOOflO 
SYST0090 
SYSTOlOO 
SYSTOl  10 
SYSTOUO 


SUBROUTINF  ALLXYZI TIHF,  IPR!NT,N6,I XXI 
PGM=NEM.  EVAN  GOTTEN.  VER.5  9-7-73 
TO  PUT  rURRENT  POSITIONS  IN  ALL  UNITS 


PXYZI  1,1) 
2 

3 

4 

5 

6 
7 


TIME, 

X 

Y 

Z 

HEAD,  RADIANS 
VEL  , KNOTS 
VERT.VEL.,KNCTS 


COMMON/GN AV/  BGCVI 0,5, 101 ,RGCV(8, 5,18) 
PIMFNSION  XYZI6) 
rOMMCN/CNAVIG/  NGNX,BE,PF,RE,RF, 

1 NBG,BA,88, BC,flD,KBGNI 18) ,KBGKI 18) 

2 NRG,RA,Re,Rr,RO,KRGN( 18) ,KRGK( 18) 

3 TTIMF,NUMX, 

4 KPU,KBUK(4,50),BREL(4,50) ,RXYZ(50 

5 KPU,KRUK(4,50),RPELI4,50) ,RXYZ(50 
DATA  RAD/C. Cl  74533/ 

DATA  ISW/  54321/ 

STATEMENT  FUNCTIONS 

FHSM  IM(X  ) = FLnAT(IFIX(X)  )4-F LOATH  FI  X(  ( 
1 ♦ RLOATIMOni IF  IX( (X-FLOAT( IFI 

assign  14  TO  IBSK 
ASSIGN  34  TC  IRSM 
IF(  IXX.FO.ISW)  GO  TO  1 
assign  15  TO  IPSW 
ASSIGN  35  TO  IRSW 


) FORTRAN  IV  EBCO 

RED RXYZ  II , 1)  » time 

2)  * ETC. 

= . TIME  AND  POSITION  ARE 
LEFT  AS  IS  WHEN 
STATUS  * KBUK(4, I )*  0 
I STATUS  * KRUK(4,I)=  0 

I , INTVLB(38)  ,INTVLR(38 ) 


,PGC(  8,6,18  ),NRU(1B), 

• RGC  I 8,6,18  ),NRUI18) , 

,7) ,NAMBU(50  ,2 ) , BV ( 50 , 8) , 
,7) ,NAMRUI50  ,2) ,RV(50,8) 


X-FLOAT (IFIXIX)))*60.5)/60) 
XIX)))*60.5  ),60))  *.01 


1 IXX  « 0 

10  IF  inpg.lf.o.  or 
C**  RLU  UN  its 

on  ?4  KC«1,NBG 
KL  « NPU(KG) 

KUG  « MOniKL,10C) 


.KRU.LE.O)  GO  TO  31 


AXYZOOlO 
AXYZ0020 
AXYZ0030 
AXYZ0040 
AXYZ0050 
AXY7  0060 
AXYZ0070 
aXYZOOBO 
AX YZ 0090 
AXYZOlOO 
AX  Y 7 0 1 1 0 
AXYZ0120 
4XYZ0130 
AXYZ0140 
AXYZ0150 
AXY70160 
AXYXOl  70 
AXYZOiaO 
AXYZ0190 
AXYZ0200 
AxYznzio 
AXY70270 
AXYZn?30 
AXY70740 
4Xy/02'>0 
AXYZ0260 
4XY70270 
AXYZ02R0 
AXY; 0290 
AXY7O300 
AXYZOOlO 
AXYZ  0320 
Axy^0330 
AXY7n340 
AXYr03S0 
AXYZ0360 
AXYZ0370 
4XYX03B0 
AX  YZ  03  90 
AXYZ0400 
AXY70410 
AXYZ0420 


K 

15 

16 


2C 

2? 

24 

C** 

11 


34 


•>5 

36 


4r 

42 

44 

5C 

r** 

r ♦♦ 

C TO 

52 

2CC0 

2CC2 

20C4 


20C6 

C** 


KL  - KL  / loa 
KLA  = KL  ♦ KUr,  - 1 

cr  td  ipsw,(i4,i5) 

CALL  GPPMnvi  TIMF,)rY7,  iXY.RCr  ( I,  l,KG)  ,3GrV(l  ,l  ,KCI  f IMVt  niKG  I 1 
1F(  t‘'TVlP('<Gl.l,T.r)  IXX»10 
cr  Tr  16 

CALI  PLUXYZm»'F,KG,XY2,IXY) 

IXX  = IXX  * IXY*IXY 
rn  24  KU=KLtKLA 
IF(KnUK(4,KL’).FO.r)  GP  TO  24 
PXY7 (KU, II  = TTMF 
FO  20  T=2t4 

pxYziKu.n  = xYzn-ii  ♦ buflii-ukui 
rn  22  1 = 5,7 
PXYZIK  L, n = XYZ(l-l) 
rov  T IM  UF 
PFC  ()►'  ITS 

IF  (MPG.LE.O.  PP  .KPU.LF.O)  GO  TO  50 
no  44  KG=l,NKG 
XL  = NRIIIKG) 

Klir,  = MPniKLflOO) 

KL  = KL  / 100 
KLA  =KL  ♦KUG-  I 
rp  TO  IPSW, ( 34,351 

f,A|  I GP  PM:iv(  TIMF  ,XYZ,  IXY,RGC<  I ,l  ,KGI  ,RGCV(  1 ,1  ,KG)  , INTVLR  (KP,  I ) 
1F(  INTVLPIKGI.LT.OI  IXX  = IXX/lO*lO*l 
CP  TO  36 

TALL  RPnXYZlTIMF ,KG,XYZ,IXY) 
lYX  = IXX  ♦ IXY*IXY 
no  44  KU*KL,KLA 
IFCKRI|K(4,KU).F0.0)  go  TO  44 
PXY7 (KU, 1)  = TIMF 
PO  40  1=2,4 

PXYZ(<LI,II  = XY7(I-ll  ♦ RREL(I-l,KU) 

m 42  1=5,7 

FXYZ  IK  U,  I I = XY7  (I-l  ) 

PPVT  IK'UF 
TTIK'F  = TIME 

IF  ( inRINT.LE.O)  RETURN 

* * * * * * * * * 


AXY7n430 
AX  Y 7 0440 
AXY7  0450 
AXYZ0460 
AXY70470 
4XY704P0 
AXY70490 
AXYZ  0500 
AXY70510 

axyzoszo 

AXY70530 
AXYZ0540 
AXYZ0550 
AX  Y 7 0560 
AX  Y7  OS70 
AXYZ  0590 
AXY70590 
AX Y706n0 
AXYZ06 10 
AXYZ0620 
AXYZ  0630 
AXY7  0640 
AX  Y70650 
AXYZ0660 
AXYZ0670 
AXYZ  0600 
AXYZ0690 
AXY707O0 
AXY707  10 
AXY70720 
AXY70730 
A* Y70T40 
AXYZ  0 760 
AXYZ  0760 
AX  Y7  0770 
AX Y 7 0790 
AXY707C0 
AXYZOPOO 
AXYZOPIO 
AXY7092O 
AX  YZ  0 9 30 


1 

2 


FNTPY  PRXYZ(N6) 

POINT  rUPopNT  POSITION  OF  ALL  UNITS 
IP  (KPU.LF.O  GO  TO  58 
rnPMATIfX, 'RLU  UNITS,  TCTAL=»,I5) 

FIIRMAT(6X,  ‘PFO  UNITS,  T0TAL»*,I5) 

FORMAT!  6X,'  UNIT  NA  ME  • , 1 OX  , 'C  OOE  • ,6  X,  • T YPF  GRUP  STAT',6X, 
'TIMF',5X,'X-NM«,6X,*  Y-NM*,5X, 'Z-KFT* ,5X, 'HE  AD' ,6X,'  VFl  -KT • , 4X, 


AXY7  0940 
AX YZOPSn 
AX Y70960 
AX  YZ'IRTO 
AXY70P90 
AXYZ  0S90 
AX  Y 7 0000 


•7-K F/M  •,4X, 'HnURS*  I AXYZOOlO 

cppMATI  6X,  14,  '.  ',244,2110,21 5,F10. 2,3F10.3,2F10.2,F10.3,F10.4)AXY7n9  20 


PI  U U*'  ITS 
CALL  PAGE 
WP ITEI N6, 20001  KPU 
WP ITFIM6, 2004) 
m 56  J=l,KBU 


AXYZOQ JO 
.AXY7n</40 
AX Y70960 
AX  YZ  0960 
AX  Y Z 09  7 0 


N- 


94 


TIM  = HRSMINI BXYZIJ, n » 

ZKFT  = BXYZ(Jt4)  • 6.080 

KFAO  = flXYZ ( Jt  5)  Z RAO 

ZFPM  = PXYZ(Jt7)  * 6.C80  / 60. 

WR  ITF(N6«  2006)  JtINAMBUI  J«  I)  1 1 * 1 *2 ) t ( KBUK  ( I , J), !=!,<»), 
I T W,  (3  XYZIJtl  )tl=2t3l  ,ZKFT,HEADt8XYZ<J,6)  ,ZFPM,  RX  YZ  ( J,  1) 
56  CONTINUE 

C**  RFO  UNITS 

58  IF  (KRU.LE.O)  GO  TO  6A 

CALL  PAGE 
WR  ITF(N6t2002)  KRU 
WR  ITE(N6,200A) 
no  62  J=l,KRU 
TIM  = HRSMINIRXYZIJ,!) ) 

ZKFT  = RXYZIJ.A)  ♦ 6.C80 

FFAO  = PXYZ ( J. 5)  / RAP 

ZFPM  = PXYZIJt?)  • 6.C80  / 60. 

WR  ITF(N6,  2006)  J,(NAMRU(  J 1 1 ) f I >1  * 2 ) t (KRUK  1 1 , J)«Isl,6). 
I TIM,(PXYZ(J,I )tl-2t3)t7KFT.HEA0tRXYZ(Jt6)  , ZFPM  ,RXYZ ( J, 1 ) 
62  CONTINUF 

6A  RETURN 

C**  ***  ♦**  **♦ 

C 

FNTRY  BUNXYZIT  IMF.KU.UXYZf  I PRI  NT.NGt  I XX) 

C TO  FINO  POSITION  OF  A SINGLE  UNIT  IN  A GROUP  - BLU 


c 

UXYZI 1) 

S 

TIME 

c 

2 

* 

X 

c 

3 

= 

Y 

c 

4 

a 

Z NOTE. 

TIME  AND 

PCSITION  APE 

c 

5 

s 

HEAP*  RAOIANSIPRINT  DEG) 

LFFT  AS 

IS  WHEN 

c 

6 

s 

VELt  KNOTS 

STATUS  » 

KBUK(4tI)  > ( 

c 

7 

X 

VERT. VEL. , KNOTS  OR 

STATUS  * 

KRUK(4,I)  = ( 

c 

KU  = L INF 

NO.  OF  UNIT  IF  KU.LT.IOOO 

c 

= UNIT 

rOOEt  OTHERWISE,  E.G.  2020100 

c** 

CIMENS  ION 

UXYZ(7) 

2C10  FORM  ATI IHO, 5X, 'UNIT  XYZ  FOR  UNIT  N0.  = *»I5) 
2012  FORMAT!  IHO,  5X»N0  UNIT  NO.^SIIO) 

IOC  IF  (KRU.LE.O)  GO  TO  1021 
KTPAN  » I 
IXX  * 0 

K = KU 

IF  (KU.LT.IOOO)  GO  TO  104 

rn  102  J = It  KBU 

IF  (KBUKI ItJI.FO.KU)  GO  TO  103 

102  CONTINUE 
1021  IXX  = 2 

WRITE(N6t 2012)  KU 
RETURN 

103  K * J 

104  KG  s MOOIKBUKI 3tK) tlOO) 

CALL  BIUXYZI TIMEtKGtXYZtlXY) 

IXX  * IXY 

GO  TO  118 

C«* 


AXYZO^JSO 
AX YZ 0940 
AXYZIOOO 
AXYZ  1010 
AXYZ  1020 
AXYZ  1030 
AXYZ  1040 
AXYZ 1050 
AXYZ1060 
AXYZ1070 
AXYZ1080 
AXYZ  1090 
AXYZllOO 
AXYZlllO 
AXYZ 1120 
AXYZ1130 
AXYZ  1140 
AXYZ  1 150 
AXYZ  1160 
AXYZ  1170 
AXYZ IIRO 
AXYZ1190 
AXYZ1200 
AXYZ1210 
AXYZ 1220 
AXYZ 1230 
AXYZ 1240 
AXYZ 1250 
AXYZ  1260 
AXYZ1270 
AXYZ12R0 
AXYZ 12P0 
AXYZ1300 
AXYZ  1310 
AXYZ 1320 
AXYZ  1330 
AXYZ  1340 
AXYZ 1350 
AXYZ1360 
AXYZ 1370 
AXYZ 1380 
AXYZ 1390 
AXYZ1400 
AXYZ  141  0 
AXYZ 1420 
AXYZ 1 430 
AXYZ 1440 
AXYZ 1450 
AXYZ 1460 
AXYZ  1470 
AXYZ  1480 
AXYZ 1490 
AXYZ 1500 
AXYZ I 510 
AXYZ1520 


i 


I 

I 


I 


! 

i 

1 


I 

I 


I j 


1. 

i 


! 
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oauciaMieuiiitsiBKBa 


n 

1 c 

AXYZ1S30 

FNTPy  PUNXV2mMEtKUfUXVZ,IPRI  NT,NG»I  XX) 

AYYZ1S60 

i C TC 

FIND  POSITION  OF  A SINGLE  UNIT  IN  A GROUP  - RFO 

AXYZ  IS50 

lie 

IF  IKPU.LF.C)  GO  TO  1021 

AXYZ  n60 

KTPAN  = 5 

AXYZ  1570 

1 

IXX  * 0 

AXYZ 15P0 

1 

i 

F = KU 

AXYZ1590 

[ 

IF  IKU.IT.IOOO)  GO  TO  llA 

AXYZ  1600 

CO  112  J=l,KRU 

AXYZ 1610 

IF  (KRUKI 1, JJ.FQ.KU)  GO  TO  113 

AXYZ1620 

112 

FONT INUF 

AXYZ 1630 

rn  TO  1021 

AXYZ 1660 

1 

in 

K = J 

AXYZ1650 

j 

iiA 

KG  = MnniKRUKI 3fK) , 100) 

AXYZ  1660 

CALI  REPXY/I VIMEtKGtXYZ.IXY) 

Ayvzi670 

I»X  = IXY 

AXYZ 1680 

! 

lie 

UXY7 ( 1 ) = TIME 

AXYZ 1690 

IF  (KTRAM.FQ.2)  GO  TO  122 

AXYZ 1700 

' 

rn  120  J=2fA 

AXYZ1710 

12C 

UXYZ(J)  = XYZ<J-n  ♦ BREL(J-1.K  ) 

AXYZ  1720 

1 

1 

GO  TP  126 

AXYZ  1730 

! 

122 

en  12A  J=2,A 

AXYZ 1 760 

i 

I2<i 

UXYZIJ)  = XYZ(J-l)  ♦ RREL(J-ltK  ) 

AXYZl 750 

i 

126 

no  1 28  J = 5,  7 

AXYZ 1760 

j 

I2e 

UXYZIJ)  = XYZIJ-l) 

AXYZ 1770 

IF  ( IPP  INT.LE.O)  GO  TO  13A 

AXYZ  1 780 

TI**  = HRSMINIUXYZI  1)  ) 

AXYZ  1790 

! 

7KFT  = UXYZIAI  * 6.080 

AXYZ  1 800 

FEAD  = UXY7(5)  / RAO 

AXYZ  1010 

h 

\ 

7FPM  sr  UXy7(7)  * 6.CP0  / 60. 

AXYZ  1820 

i 

1 

WP ITP( N6, ZCIC)  KL 

AXYZ 1830 

1 

WR ITFI N6, 200A) 

Axvz  1(140 

1 

iF  (KTPAN. EQ. 2)  GO  TO  132 

AXYZ  1S50 

! 

I 

r#* 

PLU 

AXYZ  1 860 

I 

WPITF(N6,2006)  K .(NAMBUIK  , 1 ) , I = 1, 2) , (K PUK ( I , K ),I=1,6). 

A»YZ  1870 

! 

1 TIM.IUXYZI  I ), l = 2f 3) ,ZKFT,HEAO,UXYZ ( 6 ) , ZF PM ,UXYZ I 1) 

AXYZ 1880 

i 

GO  TO  136 

AXYZ 1890 

! 

r.** 

PFT 

AXVZ 1900 

13< 

WR ITE(M6, 2006)  K ,(NAMRU(K  , I ) , I - 1 .2 ) t ( <RU K ( I , K )«I  = 1,6), 

AXYZ  mo 

1 TIM.IUXYZI  I ),(  = 2.3)  ,ZKFT,HEAO,UXYZI  6)  , ZFPM  ,i)XYZ  I 1) 

AXVZ 1920 

13« 

P CTUR^' 

AXYZ  1030 

. 

» 

FNT 

AKYZ  1940 

■ 

< 

1, 

SURPOUTINF  RM)XVZITIME,KGtXYZ,I XX) 

XYZ  0010 

i 

1 ! r PCMs^'XX.  VFP.2  9-7-73  FORTRAN  IV  ^RCn 

XYZ  0020 

1 c n 

IMTFRPOIATE  for  position,  vector,  ANO  znOT  AT  TIME  GIVEN 

KVZ  0030 

‘ 

* c 

ANO  FOP  GROUP  KG 

XYZ  0060 

c 

XYZ I 1 ) = X,  NM 

XYZ  0050 

1 

c 

XY7(2)  « Y,  NM 

XYZ  0060 

il 

r. 

XYZ I 3)  = Z,  NM 

XYZ  0070 

u 

c 

XYZIA)  « HEADING,  RADIANS 

XYZ  0 )P0 

1' 

r. 

XYZIS)  * VELOCITY,  KNOTS 

XYZ  OOOO 

r. 

XYZ(6)  » ZrOT  (VERTICAL  VELOCITY),  KNOTS 

XYZ  0100 

j 
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! 

V 


IXX 


c 

c 

c 

c 


1 

2 

3 

M 

5 

1 


10 

c** 

c 

11 


20 

30 


^0 

;o 


to 


70 


eo 


* 0, IF  O.K. 

« -1,1F  TIME  TOO  EARLY.  RETURN  EARLIEST  POSITION 
« ♦l.IF  TIME  TOO  LATE.  RETURN  LAST  POSITICA 

CIMENSION  XYZItlt  A(8t6)«  HI8)t  V(8I 
rOMMON/CNAVIG/  NGMXtBEtBFtPEtRF t 

NBG. RA«  BB«  BCtBOtKBGNI 181 tKBGKI 181 •86CI  8t6t 18  I tN8UI 181 « 
NRG,RAtRBfRC»R0fKRGNI18)»KRGK(18l tRGC ( 8 *6 * 18  I tNRU 1 18 ) t 
TTIME.NUMX, 

KPUfKRUKU«SOItBREL(AtSO)  tBXYZISOtTI  tNAMBU(50  t2l  tBV (50*81  * 
KRU.KRUK(4,50ltRREL(4,50l*RXY2(50»71 .NAMRUfSO *2) «RV(50 *8) 
DATA  RAD,P  I/.0174533f3.1A155/ 

KTRAN  » I 
DO  10  I * 2*  8 
DO  10  J > 1*  6 
A(  ItJ)  « BGClIfJfKG) 

GO  TO  30 

* * * **•  *** 

FNTPY  RFDXYZIT1ME,KG»XY2,IXX1 

KTRAN  » 2 

CO  20  I « 2f  8 

rO  20  J * 1.  6 

A(  I*J)  - RGC( I* JtKG) 

IXX  * C 

on  AO  I » 2.  8 
P( I I > AINT(A(I*5I) 

J » (All, 5)  - HID)  9 1000.  ♦ .9 
V(  I » = J 

K I)  = HI  I ) ♦ RAO 

IF  (TIME  - A(2tl))  50*  tO*  60 

IXX  * -1 

I * 2 

GO  TO  EO 

m 70  I « 2,  8 

IF  I ARSI A( I,  1)-TIME I .LF..0001t  60  TO  80 

IF  ( A(  I, 1)  - TIMF ) 70*  80*  90 
rONT  INUF 
IXX  » 1 
I * 8 

XY7(  1)  = A( 1*2) 

XYZ(2)  - All, 3) 

XYZ(3)  « An*A) 

XYZ( A)  » H( I ) 

XYZI 5)  « VI  I) 

XYZ(6)  « A(I*6) 

GO  TO  100 

R « (TIME-A(t-l*l))  / (A(1*1)>A(I-1*1)) 

XYZIl)  « (A(t*2)-A(I-l*2n  * R ♦ All-1  *2) 

XYZ(2)  « (A(I,3)-A( 1-1*311  ♦ R ♦ A(l-1*3) 

XYZO)  • (A(  l*A)-AI  1-1*41)  • R ♦ A(I-1*4) 

XYZ(4I  ■ HI I-ll 
XYZI5I  - V(I-11 
XYZ(61  ■ A(r-l*tl 


XYZ  Olio 
XYZ  0120 
XYZ  0130 
XYZ  0140 
XYZ  0150 
XYZ  0160 
XYZ  0170 
XYZ  0180 
XYZ  0190 
XYZ  0200 
XYZ  0210 
XYZ  0220 
XYZ  0230 
XYZ  0240 
XYZ  0250 
XYZ  0260 
XYZ  0270 
XYZ  0280 
XYZ  0290 
XYZ  0300 
XYZ  0310 
XYZ  0320 
XYZ  0330 
XYZ  0340 
XYZ  0350 
XYZ  0360 
XYZ  0370 
XYZ  0380 
XYZ  0390 
XYZ  0400 
XYZ  0410 
XYZ  0420 
XYZ  0430 
XYZ  0440 
XYZ  0450 
XYZ  0460 
XYZ  0470 
XYZ  0480 
XYZ  0490 
XYZ  0500 
XYZ  0510 
XYZ  0520 
XYZ  0530 
XYZ  0540 
XYZ  0550 
XYZ  0560 
XYZ  0570 
XYZ  0580 
XYZ  05«0 
XYZ  0600 
XYZ  0610 
XYZ  0620 
XYZ  0630 
XYZ  0640 
XYZ  0650 


i 

j 

I 

i 


t ; 


ICO  PFT^J9^: 
FNn 


XVZ  OA60 
XVZ  0670 


SL?°nUT  T'^r  ORPMOVCTIMFtXYZfl  XX.GC.GCVtLAST) 
ClwrNSK'M  XY/(l)i  GC(8.6),  GCV(8#5) 

TATA  PI  /3.1A1592/ 

IP=0 
!X»  =0 
1^  = 0 

L = I APS«  LAST  ) 

1 lF(l-8»  S,1C,2 

2 IP=1 

L =Mnn(L  1 10  ) 

Cr  TP  1 

S tr(L.FO.l)  CP  TP  CIS 
L=L>1 

iO  CFLT=T!Mr-OC (L,  1) 

lF(APS(nFLT)  .LT.  .0002)  Gl)  TO  80 
IF( PELT  ) 90,80,  IC 
70  rF(  I S I OA,  72,  7J 

72  I‘:  = l 

73  IFCL.FO.B)  on  TP  78 
I =L  + 1 

GP  TP  10 

50  1F( IS ) 91,92,93 
S?  !'=-) 

51  IF(L.FC.2)  on  TO  79 
L=L-1 

GP  TP  1C 

78  IXX=1 

CP  TP  PO 

79  IXX=-1 

eo  CP  85  1=1,3 
85  XV7 ( 1 )=GriL,  I + l) 

GP  TO  ICO 

S3  L=L-1 

935  rFLT=T|vF-GC(L,  1) 

SA  CP  95  1=1,3 

S5  XV7(  n = GC(L,  I>1)*PFLT*GCVCL,I  ) 

ICO  ir(  IP  .r  T.O  ) CP  TP  200 
1C2  no  lie  I=A,6 
x = 9-I 

110  XYZ(  I )=rcv(l  ,K) 

lF(r-CV(L,3).NF.O.)  LAST=10C 
IF(  IA8S(l  AST  ).NF  .LI  L»-L 
I AST*t 
9 FTOPN 

200  x=rr(i,5) 

Y=r,r  I 1,  n 

rv= Y- XY7(  1 I 
CY=y-yy2(2) 
cri i, 2 )=x 

rn  1,  3)=Y 


r,p  pMooio 
GPPM0020 
GPPM0030 
r.opMOOAO 
r.ppMOOSO 
r,ppM00  60 
rtiPMOOTO 
OR  P90080 
r,ppM009o 
PPPMOIOO 
GPP«01 10 
r.RPMO  120 
PR  P 80 130 
GPP801A0 
r.opMOiso 
OPPMOl 60 
r.PPMO  170 
r.RPMOlPO 
GPPMO  190 
PR P MO  200 
PPOM0  2 10 
r,PP''022P 
r.povr(2  30 
GRPM0240 
r.o  pmh  250 

r.o  P''0  260 
r-POM0270 
,PPPMri280 
r.PP'*029'' 
PPPMOiOP 
pDPMr)3io 
09  P '<0  3 20 

r,D  nMj  3 30 

r,pp*<o  lAO 
r,ppM03<.o 
0,00903  hO 
GROM 03 70 
pp  PMO  3 90 
GO  OM  ,)  3un 
GP  P’*  0/,oo 
GOOMOA  I 0 
GPOM3^,20 
GRPM0A30 
GROM  04  AO 
G P P 9,0  4 50 
PRO  MO  4f,0 
GH PM 04 70 
r,PPM04t<9 
GP  PM  (1400 
PPPMOSOO 
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‘SE' 


r- 


GC(1,«»»XYM  3) 
GR*so«T(ny*OY*r)x*DX) 

V*GCVILt4) 

PFL  T=GR  /V 
GCV( 1. 1 »*V*OX/GP 
GCV( l,2)=V*DY/GR 
CCV( lt3)>0. 

GCVC  1,^)»V 

FEAn*PI*.S-ATAN2(nY,DX» 

IF( HFAD.LT.O. ) HFAn=HEAD+?,*Rl 

GCVI i,5»=HFAD 

GC(  I,  lI«TIME*OELT 

L*1 

Gr  TO  1C? 

EN'n 


GRPM0  510 
GRP MO 5 20 
GRPM0530 
CRPMd540 
GRPM0550 
GRPM0560 
GRPM0570 
GRPM0580 
GRPM0590 
GRPM0600 
GRPM0610 
GRPM0620 
GPPM0630 
GRPM0640 
GRPM0650 


SUPPCUT  INF  TUXY?  (NWTUtlWTUtl  NVMTUt  TUWXYZ ,M  AXWTU  t 
A KWUK,  INTVLW,WXYZfWGCVt 

1 KTM, INTVLT,KTLK»TXYZ»TGCVt 

2 TTRAJ, IVFC, ITEM, inUi) 

COMMON/ECtlNST/  VAP  ( 15)  , I MI  SC  ( 33) 

CPMWnN  /FTIMF/  T IMF,TIMEA,TIMFB, TBEGIN, TIMENn,TIM4X,TSTFP 
riMFNSinN  TUWXYZO,  l),INVWTU(l)  ,KTUK(4,  1)  , I WTU  ( I ) , I NTVLT  ( 1 ) , 
1 TXYZ( lOUl, 7),TGCV(fl,5,l) ,TUTXYZ(8,1) ,TrRAJ(50,l) 

2,  KWUK (4,1),  INTVLWI 1) ,HXYZ(inui,l) ,WGCV(8,5,1) 

FOU  I VALENCE!  !«( SCI  3) ,NLPR ) 

EOUIVALFNCF  ( V AR  ( P ) , A I RC  P T) 

TATA  N6/6/ 

NAMEl  IST/LnSTGT/  T IMF  , IW  , NA  ME  , I TG  T 
ITFM=0 

ASSIGN  120  TO  I SWT 
ASSIGN  102  TO  JSWT 
ASSIGN  ini  TO  KSWT 
GP  TP  1 

r^'TPY  TL'ZXYZ  (NWTU,  I WTU  , I N V W TU  ♦ TUWX  Y Z , 

1 KTU, INTVLT,TUTXYZ, 

2 IVEC,inUl) 

ASSIGN  10  TP  I SWT 
ASSIGN  103  TO  JSWT 
ASSIGN  150  TO  KSWT 

I IVFr=0 

ir(NWTI'.L  E .0  ) RETURN 
no  150  IW*1,NWTU 
KV=  IA5  S(  INVWTUd  W)  ) 

IF(KV.EO.O)  GO  TO  150 
IWT*IWTU(  IW) 

ITGT»MCn( IWT/lOOOOO,lOCO) 

JTGTs ITGT 

IF(  ITGT.GT.KTU)  GO  TO  I SWT,  ( 120,  10) 

GO  TO  K SWT, ( 150,  101) 

10  ITGT-ITGT-KTU 
101  NAME»Mnn( IWT, 10) 

WX*TUWXVZ( 1,  IW) 


TJXYOOlO 
TUXY0020 
TUXY0030 
TUXY0040 
TUXY0050 
TUXY0060 
TUXY0070 
TUXYOOPO 
TUXY0090 
TUXYOlOO 
TUXYOllO 
TUXY0120 
TUXY0130 
TUXY0140 
TUXY0150 
TUXYO  160 
TUXYOiTO 
TUXYOIRO 
TUXYOlOO 
TUXYOZOO 
TUXY0210 
TUXY0220 
TUXY0230 
TUyY0?40 
TUXY0250 
TUXYOJAO 
TUXY0270 
TUXYO?nO 
TIIXY0290 
TUXYO 300 
TUXY0310 
TUXY0320 
TUXY0330 
TUXY0340 
TUXY0350 
TUXY0360 
TUXY0370 


N 
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4 


I 


ViY  = TUWXV7(  ?,  IWI 
V<7  = TIIWXVZ<  ?,l  W) 
tvf:  = Tuv«xv/(a,i  w) 
rn  TP  JSWT, ( IC2,  103) 

10?  IF(  ITGT  .FO.O)  GO  TO  1025 
1TG  = K TDK ( 3, ITGT  ) 

LEGT=  INTVLTI I TG  ) 

IFILFGT.GT.O  .4Mn.  TVFr..GT.Tl)<F)  GO  TO  113 
LrG=iaPS(l  FGT  ) 

TX=TXY7 ( I TGT, 2 I 
TY=TXYZ ( ITGT, 3) 

T7=TXY7(ITGT,A) 

TVX  = TGrV(LFG,  1, I TG  ) 

TVY=TGrv(l  FG,2,  I TG  ) 

TV7  = TGr,V«LFG,  3,  I TG  ) 

GO  TP  10^ 

10  25  ITGT=MC)r(  IWTlJIMaxWTU^lWl.lOOOO) 

IP!  ITGT. GT. ICC)  I TG T= I TG T 71 00 
ITG=KUUK( 3,1 TGT ) 

I FCT=  INTVLWI  ITG  ) 

IFdFGT.GT.O  .ANC.  TVEC  .GT.TI  MF)  GO  TP  113 
LFG=IABS(LEGT) 

TX=WXY7 I ITGT, 2 ) 

TY=WXYZ( ITGT, 3) 

T7  = UXY7(  ITGT,<») 

TVX  = WGCV(LEG,  1,1 TG  ) 

TVY  = WGC VILfG, 2, 1 TG  ) 

TVZ=WGrV(LFG,3,ITG) 

GP  TP  10^» 

1C3  I rGT=  IMTVL  T(  ITGT) 

IFILFGT.GT.O  .AND.  T VFC . G T . T I ME ) GO  TO  113 
tx=TUTXYZ ( 1,  ITGT  ) 

TY  = TnTXY7 ( 2, ITGT  ) 

T7  = TDTy V7( 3,  I TGT  I 

TVX=TUTXY7  ( A,IT-,  T) 

TVY=TUTXY7(5,ITGT) 

' TV7=TDTXY7.(6,  ITGT) 

1C<,  KV  = ^'Pi)(  KV/  ir,  10) 

IV=MPn( KV, 1C) 

IF(  IV.riE.O)  GO  TP  106 
ifitvf:  .Ti  MP)  r.n  to  ic5 

IFIIjV.CT.O  ) GO  TO  lAO 
^ NV=  1 

ir<5  wvx  = tdwxy7  ( a , iw  ) 

■ WVY=TDWXY7 ( 5, IW ) 

’■  WV=5CRT(  V.VX*WVX  + WVY*WVY) 

' GP  TP  lOP 

( IC6  NTR  AJ  rvnni  UT/ 10, 100) 

f IPPP  = ( IV- 1 )*25 

i I V = TTI}AJ<  irFF^2,NTRAJ  )+.0l 

j LflOJ  = Mro(  LV,  ICO) 

* LV  = LV/100 

s IF{  TVPP  .CT  .T  IMF  ) r.n  TO  1C7 

I NV=PV*1 

I iriNV.GT.IV)  GO  TO  l<iO 


N-  100 


A. 


TUXY0380 
TDXYOiOO 
TDXYO^OO 
TDXYQ^IO 
TDXY0^20 

TDXY0<i30  j 

TI|XYn440  j 

TDxyn<i50 
TUXY0460 
TnxYO<,70 
TUXYO'<RO 

TO  xvn^or) 

TIJXYOSOO 
TDXVOGIO 
Ti)XY052O 
TDXY0530 
TUXYOSAO 
TDXYP550 
TUXYOSbO 
T'IXY0570 
Tl)XV  05BO 
Til  XV0500 
Til  xy0600 
TIIXY0610 
TD  yY0620 
TIJ  XYOf,00 
TIIXY0640 
TIIXYOGSO 
TMXY0660 
TDXYOG70 
TDXY06R0 

TIIXVn<,c>T 

TUX Y07P0 
TIJXVOTI  0 
T0XV0720 
TIIXV  077.0 
TIIXYOTA  0 
Til  X YO  TT^O 
Tllxyp7f^0 
Ti  IXV  1 7 70 
TlIXyOTPO 

Til  XV  07<)  0 

Tiixv.'iqoo 
T>|xyoq  1 0 
T IXY0R20 
Tlixyoooo 
T'ixy  OHAO 

Tlixv  30150 

Tiix  voqiSO 
TOXXORTO 
TIIXYOROO 
TIIXVORPO 
TDXYOPOO 

Tlixy  OR)  o 
TlixyoopO 


tFCNfiMr ,MF.A ) GO  TO  107 

TIIXY0930 

IFCNV.MF.LAOJ^l 1 GO  TO  107 

TIJXY09A0 

IWTUC^AXWTU^IW) slOOOOOOOO^MOOl 1 WTUlMAXWTU* IW) ,1000000001 

TI(XV0950 

IC7 

N'OFF  = (NV-  1 l•A♦InFF♦A 

Tl)XY0960 

WV  = TT«AJ(  ‘nFF*3,NTPAJ) 

TIJXYO'’70 

1F(WV.LT,0.1  GO  TO  UO 

Tt|XY09»0 

108 

N5»M00( KV/lCCt lOCCl 

TOXYOPOn 

S»MS 

TUXYlonO 

ivrc*  1 

TOXYiniO 

CALL  INrFPTlTX,TV,TVX,TVy,WX,W7,WV,WVX,WVY,nELTl 1 

TUXYlOZn 

IFIPELTI.LT.O.)  GO  TO  1080 

TtJXYl  030 

IF»  DFLT  ULT.AIRCPT)  GO  TO  1083 

tuxyioao 

|F(IV.NE.O  .OR.  JTGT.FQ.O)  go  to  1083 

TI)XY1050 

10  80 

IFINLPP  .GT.C)  WO  nF«M6,LCSTGT) 

TOXYinCO 

C 

TlIXY  1070 

TUWXV/( 7,IW)«-10C. 

TlJXYlOPO 

GO  TO  150 

TOXY1090 

c 

TlIXYl  too 

c 

TUXYlllO 

c 

TOXYl 120 

1083 

TINCPT*TIMF4CELT1 

TDXYl 130 

1084. 

TUWXY7( A,IW)»WVX 

TlIXYl  lAO 

TUWXY7( 5,IW)»WVY 

TIJXYl  150 

T(IWXY/(  7,  IW  )*T I *"0  87-7576  P 

TlIXYl  1 60 

INVWTUt  IW)»- (KV/ 100* 1004NV* 104  1 VI 

TLIXY  1170 

1F«  IV.FO.O)  GO  TO  110 

TlIXYl  1 80 

IFINV.FO.LVI  GO  Tn  109 

TIJXYllOO 

RTFSTsTTRft J1 N0FF*6,NTRAJ) 

TIJXYl  200 

N=NV4  1 

TIIXY1210 

|-M*TTRAJ(N0FF45,NTPA  J) 

TlIXYl  220 

ir(N,'IF.LADJ  1 GO  TO  1085 

TIIXY1230 

HNPIxTTRAJ(N0FF*9,NTPAJI 

TlIXY  1 2A0 

P^!PlxTTRAJ(  NOFF4  10,MTPA  J) 

TUXY1250 

GR.RTFST-RNP 1 

TDXY 1260 

FMxMNPl4(HN-HNPl )*<OR-S) /OP 

TIIXY1270 

1085 

IF1NV.lt. LAOJ)  RTF  5T«RTF?T-S 

TlIXYl  280 

10855 

CX»TX-HX 

TIIXY1290 

CV=TV-WY 

TlIXY  1 300 

VX*TVX-WV,X 

TlIXYl  310 

vv=tvy-wvy 

TMXYl 320 

gall  GP  TF5T1 OX.OY, VX,VY,RTFST,Tl NT,TSTAPT,T5TnP) 

TlIXY  1 3 ■*0 

CFLTIxTSTAHT-TIME 

TlIXYl  3A0 

1066 

WV/=0. 

TlIXYl  350 

I F(  HN.l  T..0033)  HNs.0033 

TilXYl  3^.0 

IF( OFLTI.GT.O.)  hVZ=(HN-w2)/DELTf 

TMXV1370 

TIIWXYZl  6,  IW)»WVZ 

Til  XY  1 XPO 

TUWXYZl 8,IW)*TSTAPT-TSTFP 

TlIXYl  390 

cr  TO  iiA 

Til  XYl  AOO 

1 09 

TV»0 

TIIXYIAIO 

INVWTUl TW)«-(KV/1COOCO*1000004NV*104I V) 

TIIVYIA20 

NFxO 

TlIXYl  A30 

1 10 

FN«T74TV7*nFI  TI 

TlIvYlAAO 

IFINS.CO.OI  GO  TO  112 

TUXY  IA50 

PTEST.S*.! 

TlIXYl  A60 

CO  Tn  1CP55 

TlIvY  IA70 

112  TSTA0T  = T IMCPT 
rii  TO  lOPis 

113  WVX  = TUKXYZ(<ttlW) 

WVY  = TlJWXYZ(5tIW) 
WV7=TUWXY7(6,IW» 

1 FI  APSI  WVZ  ) .r,T.  .Oil  KV=-KV 
IMVWTIMI  W)  =KV 

llA  TUWXYZl  1,  1W)=WX+KVX*TSTFP 
TllWXYZr  2.  IW)  =WY*WVY*TSTFP 
TUWXY7(  3t  1 V<I=WZ  + WVZ*TSTFP 
rr  TO  150 
120  ITEM  = ITFy  + l 
GO  Tr  150 
lAO  IFVWT'K  TW)=KV 

T(IWXYZ(  7,  IW)=T1MF 
150  CrNTINUF 
PFTUP“' 

EMC 


SGBRPDT  IMF  r.RTFSK  nxr.DYC.VX.VY.R  TESTf  TINT, TST ART  .TSTCPI 

COMMON  7FTIME/  T I F F, T 1 MF A , T1 MF B, TRFG 1 N , T I MENO , T I MA X , TST E P 

COP  A=  VX*DXn-fVY*nYO 

nr.?'^  = vx*vx4-VY*vY 

fRn^=i)xn*nx0  4-nY0*i''Yn 

PTE5T?=PTCST*RTFST 

TV'rA  = 2.*PGRP 

IF  (TWOA  .FO  .0  . ) r.O  TO  2C0 
P = 2 .*CCP A 
C = GPr2-PTF5;T2 
RAOCA!  =P*P-?.*TWnA*C 
IFtP  ArCAl.  .LE.O.  I GO  TO  205 
PAnCAL=SORTCPAnCAL I 
T<:tarT=-(  B*p  AFCAL)  /TWOA ♦time 
ir( TSTART.GT.TIMAX  I go  to  205 
TSTOr =( p AOC AL-H I /TWOA+TI ME 
|F(  TFTnp.LT.TIMF  ) GP  TP  205 
IF( TSTAPT.l T.TIME  I TSTART=TIMF 
IF(T?T(1P.GT.T1MAX  I TSTOP  = TIMAX 

201  T nT  = TSTOP-TSTAR  T 
BFTOPN 

2C0  ir( GRn2.GT.R TFST2)  GO  TO  205 
TSTAP  T=TIMF 
TFTnP=T  IMAX 
Cn  TO  201 

2C5  TINT=0. 

tstapt=timax 

T5TOP=TIMF-T5TEP 

RFTOPN 

EMO 


FOBROOTINE  GUir)(TH,PSI,VEL,IG,IF,IL,PLP,PLV,SXT,SYT,CFP) 
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TIJXY  l APO 
TUXYl ARO 
TUXYl 500 
TUXY1510 
TUXYl 520 
TUXY1530 
TUXV15<,0 
TMXY1550 
TIJXY1560 
TUXY1570 
TUXY1580 
TIJXY  1 500 
TUXY1600 
TIJXY  1510 
TUXY  1620 
TIJXY  16?.0 
TUXY16A0 
Tt)XYl650 


GRTFOO 10 
GRTE00  20 
r,R.TF0030 
(P  TF0040 
gptfoofo 
r,RTF0060 
GRTF0070 

gdtfoopo 

GRTFOOPO 
GRTFOinO 
r.RTEOllO 
ORTFO 120 
r.PTEO  130 
OP  TFO  lAO 
c.PTFni50 
GPTEO160 
GPTroi 70 
GR TFO  IPO 
G0TF01 no 

GR  TPO  200 
OR TFO 2 10 
GPTFOPZO 
GRTFO730 
GOT  Fn2^0 
ra  T F02  50 
GR  7 50  2 60 
GPTFf)2‘'0 
GP  TE02P0 
GR  TF02O0 
GRTF0300 


i 


i 


Gu  non  n 


PGHar'XX(  NF"  I . FWN  rntTFN  8-1-73  FORTRAN  tV  FBFn 

•‘ICCruRSE  riMCAN'f.F  CRpnps  for, 

ir  = I,  ALL  rNFPTIAL.  *2,AIRSPFFn.  *3,nnPFLER. 

NFFOP  PI.r'FK  DATA  IN  F OMMON /CGUI D/ 

TF  = FL IGHT  TI«F,  HRS 

PST  ’ FCAniMr,,  RADIANS 

VFL  = KNOTS 

IC  =1,AIL  INFPTIAN  aZfAIRSPFEO  =3,nnpPLFR 

IF  =l,PnR  1970-75  =2, FOR  1975-80 

IL  =1,809  land  lAUNCH  »2,FnR  SEA  LAUNCH  =3,AtP  LAUNCH 

PLP  = 0.,Fnp  SCALIEST  POSITION  FRROR  FOR  PLATFORM  TYPF 
= l.fFOR  LARCrST 

PLV  » 0.,FrR  smallest  LALCH  VEL  errors  for  PLATFORM  type 

= l.,FnR  LARGEST 

RFTUP^^S,  SXT,SYT=  STD.DFV.  IN  X f.  Y,  NM. 

CEP  = CIRCULAR  PROBABLE  ERROR,,  NM 

COMMON/CGUI 0/  snxp (? ) ,SDYP I 2» ,SKXP( 2) ,SKYP(2) ,SFXP(2) ,SFYP(?|, 
ISKXI 2», SKY( 2) ,SDRXT{ 2, 3) ,S0R YT(2  ,3)  ,SnPX0T (2,3» ,S0RYnT(2,TI .theta 
OTMFnSION  A(5»,CX(7>,fY(fi),SX(7J,SY(5) 

fata  P I,G,R ,WF,A ,C /3. lAl  59265, 32.2  ,2.09?638BF7 ,7 . 2° 2 1 1 52 F-5 , 

10.67  561  7,-0. 1 159  56,  1.65 C78,-l. 542 96 , 0. 5 09798  ,1.296F6/ 

SPS  = S INI  PS  I I 
EPS  = COSIPS  I ) 

VX  = VFL  * SPS  * 1.6878 
VY  * vn  * CPS  * 1.6878 
T = TH  ♦ 3600. 

SORX  = SnRXTIl.IL)  *■  PLP*(SnPXT(2,IL)-S0PXT(l,lL») 

SrPY  = SPRYTII.IL)  ♦ PLP*( SnRYT(2,l L)-SORYT (1 ,I L) ) 
r-P  TP  (IOC,  200,  300),  IG 
100  TFFTAP  = THFTA  * PI  / 180. 

SPRXr  = SDRXDTIl.IL)  ♦ P LV* ( SOR XO T ( 2 , 1 L ) -SOP XDT ( 1 , I L ) > 

SnRYD  = SOPYOTIl.Il)  ♦ PLV*{SDRY0T{2,IL)-SnRYDT(  l,TI  ) ) 

WS  = SOPT(G/R) 

OWS  = 1.  / WS 

PH02  = VX  / R ♦ TANITHETAR) 

WFY  = WE  * COSI  THFTAR  ) 

SPZ  = SOFT!  (SFXPnF)/WFY*2./C*PI  )**2  ♦ I SOP  YD/ ( R*W  EY  ) ) **2  ) 
rx(2)  = SKXP(IE)  * VX  / 100.  ♦ OWS 
CY(2)  = SKYP(IF)  ♦ VY  / 100.  * OWS 


rx(  2) 

CY(  2) 
rxi  3) 
CYI  3 ) 
CXI  4) 
CYI  4) 
CXI  F ) 
CYI  5) 

rx(6 ) 

CYI  6 ) 
CXI  7) 


SDRxn  ♦ OWS 

SORYD  • OWS 

SK  YI  IF  ) / too.  * VX 

SKX I IF  ) / 100.  ♦ VY 

SnXPI IF ) ♦ RH07  * R 

SOYPI  IE  ) ♦ RHOZ  * R 

SFYP I IE  ) * PI  / C ♦ R ♦ 2. 


CY(6)  = SPZ  ♦ VX 
CXI  7)  = SP  Z * VY 
SV'ST  = SrN(WS*T) 

TM  = T - OWS  ♦ SWST 
SXI 1 ) * SORX 
SYI  1)  = SPRY 
ro  120  I = 2,  3 
SXI  I ) = r X 1 1 ) * SWST 
120  SYI  I ) * CYI  I ) * SWST 


GUI  00020 
GUT  000  30 
GU 100040 
GU  100050 
GU  100060 
GU  100070 
GU  lOOORO 
GU I 00090 
GU  I DO  100 

cu  rooiio 
GU  ino  120 

GU  inO  130 
GU 100140 
GUI  00150 
GU 100160 
ai  100  170 
GUI  no  180 
GU I 00  190 
GU 100200 

GUI  no  2 10 

GU  1 OO  2 20 
GU I 002  30 
GU I 00  240 
GU  100  250 
GU  100260 
GU  1002  70 
GU I 00  2 80 
GUI  002  90 
GU  100  300 
GUI  00 3 10 
GU  1 no  3 20 
n 1100  330 
GU  100340 
GU  100  3 50 
GUI  00 360 
GU I 00370 
GU  I 00 380 
GU  100  390 
GU 100400 
nit  ino410 
GU I 00420 
GU  1004  30 
GU  100  440 
GU  100450 
Gi.l  TOO460 
GU  I 004  70 
GU 100480 
GU I 00490 
GU 100500 
GU  100  5 10 
GU  1 OO  5 20 
GU  100530 
GU  1005<,0 
GU 100550 
GU  100560 
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: 


Cr  I4,c  1 = A, 

6 

GU  100  570 

sx( I ) = ( x(  n 

♦ T** 

GIJI00  5RO 

lAO  SY{  1 ) = r Y(  I) 

* TM 

GU  100500 

SX(7)  = fx<7) 

* T 

GU I 00600 

SY(  6)  = rY(fc  ) 

* T 

GO  1 00610 

SXT  = SX(7)  * 

SXI7) 

GIJ  ino6?o 

SYT  = 0. 

r4JI00630 

CO  16C  1 = 1,  6 

GU  100660 

SXT  = SXT  ♦ SX(  I 1*SX(  1 1 

GU  ID0650 

160 

SYT  = SYT  ♦ SYl  I )*SYn  ) 

GUI  00660 

rr  TO  600 

GUI00670 

?C0 

CA  = 0.C2 

GU I n06no 

cr  = 0.02 

I 00690 

GO  TP  320 

GU  100  700 

2C0 

CA  = 0.C06 

GUI  00 7 10 

Cf  = 0.012 

GU 100720 

320 

VCT  = S0RT(VX**2  + VY**2)  ♦ T 

GU 100730 

iT  = CA  ♦ VGT 

GUI  00760 

CT  = r.C  * VCT 

GU 100750 

SXT  = (AT*SPS)Y*2  *■  (CT*CPS1**2  ♦ S0RX**2 

GU I 0076  0 

SYT  = (AT*C.PS)**2  ♦ (rT*SPSl**2  ♦ S0RY**2 

GU  100  7 70 

<*co 

SXT  = SCRT(SXT)  / 6076.1 

GU  rno7fio 

SYT  = SORT(SYT)  / 6076.1 

r,U  I 00790 

IF  (SYT  - SXT 1 620,  62C,  66 C 

GU 1 00900 

620 

RA  = SYT  / SXT 

Guinoflio 

S = SXT 

r.11 100R20 

GP  TP  4,60 

GJI  100  9 30 

6 60 

PA  = SXT  / SYT 

IO096O 

S = SYT 

ni  1009  50 

660 

CFP  = A(5)  * PA 

GU 100960 

TP  660  I = 1,  3 

GUI  00970 

660 

CPP  = ( A(- 1+5)  ♦ CEPl  * RA 

GU I 00990 

CTP  = (A(l)  ♦ CFPl  ♦ «: 

GU I D0990 

PFTUPN 

GUI P0900 

F^O 

r.u  1009 10 

SDPRP'JT  16' F INCEP  T(  XT,  YT,  VXT  ,VVT,XI  ,YI  , VI  , VXl  ,VYI  tOELT  11 

INC«=00  10 

CFLT I=-l. 

tMGFOOpO 

nxp=xT- XI 

I'lCFomn 

r;YP  = YT- YI 

TNrcno60 

iripxn.NC.o.  1 r,n  rn  i cc 

INCF0050 

I F(  OYfl.MF  .0. 1 C.n  TP  lio 

IMCTO060 

VX1=0. 

IMCF0O70 

VYI=0. 

INTFOORO 

CELT  1=0. 

INGFOOOO 

10 

RFTMPN 

nCFO  100 

ICO 

IF( OYT.Nl .0 . 1 GO  TO  1 50 

I^CCOl  10 

IF(  V I .1  T.A8S  ( VYT  ) 1 RETURN 

IPCR0120 

VYI=VYT 

IPGEOI 30 

VXI  = SOPT(  VI»V  1- VYI*VYI  1 

INGCOI^O 

1TPY=0 

iNr.F(n5o 

ICl 

VX=VXT-VX I 

IMPFO  160 

iF(vx.NF.o.i  oEi  Ti  *-nxn/vx 

ING.FO  170 

N-  IfH 


IF([)FLT  l.r.F.O.J  RFTUPM 
IF(  ITRy  .GT  .0  ) RETURN 
ITRY=l 
VXI=-VX  I 
GO  TP  ICl 

110  IF(VI  .1  T.AHS(VXT)  I return 
VX 1=VXT 

VYl  = SOPT(Vt*Vl-VXl*VXn 
ITRY=0 

111  VV=VYT-VYI 
IFlVY.NF.n.)  PELTI  =-nYn/VY 
IFIDELTI.GF.O.)  PFTIJRN 

1F(  ITRY  .GT.O  I RFTIIRN 
ITPY=:  I 
VYI=-VYI 
GP  TP  111 
1?0  E=nYn*Vl 

P=nYP*VXT-nXO*VYT 
TwnA=?.*(  oxp*r:xn4(iYp*PYn) 
p = 2.*0<'CXn 
c=«  r-F)*(  n+F ) 

P ADf AL=R*R- 2.*TWnA*C 
TFtPAOCAL  1 10,1  51,156 

151  rTRY  = l 
VYI=-R/TWPA 

152  VY=VYT-VYI 
IFIVY.NF.O.)  OELTI=-nYO/VY 
IFinFLT  I.LT.0.1  GP  TP  156 
vxi=-nxr/nYri#vY*vxT 
RFTUPN 

155  PAPCAL  = S(JPT(RAnCAl  ) 
VYr=(PAPCAL-P)/TWPA 
ITR  Y-=0 

fP  TP  162 

156  IF(  ITRY.GT.O  I RETURN 
rTPY= 1 

VYI  = -(F  ADCAl  +B)  /TV'PA 
GP  TO  15? 

FNP 


INCF0180 
|Nr.F0190 
INCE0200 
IMrP0.?10 
1NCF0220 
INCF0230 
INCE02A0 
rNCF0250 
INCE0260 
TNCF0270 
INCF0280 
rNrF0290 
INCF0300 
INrF0310 
INCEn320 
INCEOTTO 
INCF03<,0 
INE.FOTSO 
!NCFn360 
INPE0370 
INrP03B0 
INCEOiOn 
IN  CEO^^OO 
IMPFOAIO 
INC FO 620 
IMG  P0430 
INrEn4<,0 
INGFOASO 
TNr.F0460 
lNrEn470 
INrP0480 
fNCE0490 
INEFOPOO 
TMrF0610  < 

1NCF0620 
IPGP0630 
INCrOSAO 
TNrF066n 
IME  F()660 


St.'RRPUT  INF  RELATF  (NRG  , NR U,  I NTVLR  , L SY  SR , K WS  FG  ,B GCV  , RX Y Z , RPX  1, 
l'  IPSTAT, 

2 KPU,MPG,NRTU, I NTVLR , I N VRTU , NPU , LS YST , KTSFG , I T PU, RPX 1 , 

2 RCCV,KRUK,RXYZ,PTUXYZ,1PVEC ,1 TVEC,IRSTAT, 

4 lNFPR‘*,LnRSYS,WDATA,  lOUl) 

rPMMON  /FTIMF/  TIVF,TrRFA,TlHER, TBEGlN,TlMFNn,TIMAX,TSTEP 
CPMMPN/CEVICE/  N l,N2,N3,N4,N5,N6,N7,Nfl,N9,N10,Nll,N12 
rpwMPN/FCGNST/  NSHIP ,NAIR , NSUR , N VSF A ,NV A LT , POT N, FGRIN, 

1 AIPCPT,FPNM,HMIN,PI,TWPPI  ,IENV,ISCAN,I  PRAt),lHlSC(35» 

C rWFNS  IPF'  INTVLB(1),ISYSB(  1)  .KWSEGll)  , INTVLP  U » ,INVRTll(  1)  , 

1 NPU(  n,LSYST(  1)  ,KTSFr,(l  1 ,I  TRUd  » ,INF0RM(1  I ,LBRSYS(  1)  , 

2 HGEVl B,5, 1 ) ,PXYZ( IDUl,71 ,RPXl(l2,l) ,RGCV(8  ,5  ,n  ,RPX1( 12,1  ), 

3 RXYZ ( inui, 7 ),KRUK(4,1I ,RTUXYZ(B,n , WO AT  A (24,1  ) ,NBU(  It 
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PFI  AOOlO 
PEL  AnP?0 
PFI.  A00  30 
RFL  A0040 
RPL  AOORO 
RE) A0060 
PEL  A0070 
PEI AOOBO 
PEL  A0090 
RFl AO  100 
PEL AOl 10 
RFL  A0120 
PEL  AO  130 


A,  JkSTAK  I ),  IPSTAK  II 
A?<;|(.M  i,ito  iTsw? 

If'l  it'Vir.^T.O)  r.r  Ti  1C7 
a^SItn  poo  in  tPSH 

A?;SirA|  206  TO  IRS^? 

ACS  KM  A 10  TO  IRSV.3 

rr  m ict 

ir?  ASSIGM  201  in  IRSH 
assign  21P  Tn  1RSW2 
ASSIGN  ’ TO  IRSW2 
ICR  I F(NC  TO  .FO  .0  ) r.n  TO  111 
ASSIGN  R TO  ITSK2 

111  IM  ITVFC.GT.O  ) Cn  TO  112 

ASS  KM  SCO  TO  ITSU 

ASSIGN  AGIO  T'^  ITSW2 

rr  Tt'  115 

112  ASSIGM  201  TO  ITSU 

ASSIGN  AO  2 TO  ITSV2 

Its  COM  T INI)  F 

rr  =00  IPG=1,NRG 
K = IK'TVl  P(  I «r  I 
IFIK  .LT  .0)  Cr  TO  2C2 
Cr  TO  IF'SW  1,  ( PCC,  ?C1 ) 

2C0  rr  Tfi  ITSNl,(20l,  500) 

2ri  ASSIGN  20d  TO  IRSH 

ASSIGN  2l«  TO  lOSWP 

ASSIGM  ROO  TO  inSV,R 

ACS  IGN  AOO  TO  I « S^A 

assign  ARO  TGI  IRSV.S 

GG  TO  20A 

2C2  ASSIGN  212  TO  IRSKl 
ASSIGN  3 TO  1BSV«2 
assign  300  TO  IBSW3 

ASSIGf;  A02  TO  IHSVA 

ASS  !G''  At?  TO  1 BSWR 

2CA  L Fr=  I AP  S(K  I 

K -:MI'U{  I nr  I 
IPArk  / ino 

ip><=  IRA  +Nrn  (K  , 100 1- 1 

vxp=MGr.v(i  FG ,1 , mr  i 

VYl>=RGrV(LFG,2t  IPG) 

no  Aon  ieo=ipA,  ipr< 

irt  IPSTATI  IPUI.FG.O)  GO  TO  A9C 

IS=l  SVSHt  IRU  I 

L c=Mpn(  IS/  100  , looro) 

IF(  I s .FO  .0  ) GO  TO  ARC 
MS=I  RRSVSd  S I 
MASK=Nrn(Ms/ic,  lOOO) 

TTINASK  .tO.O)  GO  tg)  ASC 
K=L  PC  SYS(l  S-  1 I 
PA  IP  =K / lOOOOO 
«SMiP=r*nn(K/  100,  lOOCI 
rr  tc  fPSW2, ( 206,212) 

PC6  GO  TG  I osw 1, < 203,2  12) 

PCR  ! = ( ''G.nt  mask/ 10,  ID  .10.  C)  GO  TO  AOO 
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RFl AO lAO 

Pit  AO  ISO 
F EL  A0160 
«F(.  AOl  70 
RFL  AOl PO 
B Ft  AOl  00 
PEL  A02n0 
RFl A0710 
P FLA0220 
p FL A0230 
r FL  A02AO 
PFl  A02SO 
RFl  A02t0 
PFl  An270 
PFl A02P0 
o PL  A 0 20  0 
PFl A03ro 
FFl  A031 0 
PEL  A0J20 
PFl  AO  330 
PFl AO  3A0 
P F|  A03SO 
PFl  AO  360 
PFl  303  70 
PFl  A03P0 
PFL  A03')0 
FPL  AOAOO 
PPL  AOA 10 
P FI  A0A20 
PPL  AOARO 
I’FL  AOAA  1 
PFl  AOA50 
RFL  .A0A60 
PFl  AO  A 70 
B Ft  AOAPO 
P FI  AOAOO 
PF|  AOSflO 
RP|  AOSin 
PFl  A0S20 
PFL A OS  3 0 
pGI,  \0S4') 
I'l  I AOSSO 
A A S I..  0 


PP| 


PI  I AOS  70 


PFl 


AOSP  ) 
I Ft  AOSCO 

PM  AOsrO 
|.'  M A 0 M 0 
P FL  AOS?  0 
i.T)  /\o/.3r) 
I PL  AOfittG 
Rl  I AOOSO 
"PI.  A •'660 
P P|  A06  70 
PM  AORP  1 


212 

Kp«Mnn(MSi 10 1 

PFL A0690 

XP»RXYZ(  inu, 2 » 

PEI  A0700 

YP*BXY2« I8U,i) 

PFL  A0710 

/P=PXYZ ( IBU,4) 

RELA0720 

LPLTw»pnn( iSt ioo> 

RFLA0730 

LS»IS-1 

RFLA0740 

IS=I?/1000000 

REL A0750 

IF(KR.NF.NSU8  ) GP  TO  213 

PEL A0760 

ASSIGN  300  TO  ISBSWl 

RE).  A0770 

GD  TO  214 

REL  A0780 

211 

ASSIGN  ’02  TO  ISPShl 

PFL40790 

HPM=ZR 

REL A0800 

IFIKB  .NF.NAIR  » H PM -RPX 1 ( 3 1 L PL Th» /FPNM 

RFLAOBIO 

PLOS*»aSOPT  (HPM*  (6P80.+HBMI  J 

RFL40fl20 

IFIMOO(MS/IOOOOO,  10)  .EO.  0)  GO  TO 

214 

RFLAOBIO 

CO  2136  KS=IS,LS 

RFI.  aOB40 

JS=L  PRSYSIK  S ) 

PFL40850 

IFIMPOI JS, 10)  .NE.  1)  GO  TO  2136 

RPL AOB60 

BFTAaMrOI JS/lCOCCCCt 1000) 

RFLA0B70 

ASSIGN  304  TO  IRDSWl 

OEL  A0B80 

ASSIGN  414  TO  IRPSW2 

PFL  40890 

GO  TP  215 

PEI.  A0900 

2136 

CPNT  INUF 

PFL  A0910 

214 

ASSIGN  306  TO  IPOSWl 

RFL  A092  0 

ACS  IGN  416  TO  IRD£)i2 

P GL 40930 

216 

IFIMOni MS/ ICOOOOC,  10) .FO.  0)  GO  TO 

2152 

PFL  40940 

no  2150  KS=IS,LS 

pel  40950 

j «=i  PRSVSIKS  ) 

RPL  40960 

IFIMOOI  JS,  10)  .NE.  7)  GO  TO  2150 

P EL  40970 

SFTA  =Mm(  JS/1000CCC,1  CCC) 

3 a A09BO 

SFTA=SETA». 1 

RrLA0990 

KSpNRsI 

RFL4  1000 

GP  TP  216 

PFL AlOlO 

2150 

GPNT INUE 

PPL  41020 

2152 

SFTA  =0. 

3 a A 1030 

K SONR  =0 

REL  AlOAO 

TP<K R.rO.NSUP ) GO  TO  40O 

PFL  41050 

216 

GG  TP  IPSW2,(210,3) 

PP|  41060 

2 IR 

rp  TP  IRSWi, (410,3) 

PPL  41070 

3 

CO  390  IPG=l,NRG 

RFI  M080 

L FrT=  fNTVLP  ( IPG  ) 

PPL  A) OQO 

IFd^GT.)  T.O)  GO  TO  3 00 

P FL4  1 100 

GP  TO  IfiSW3, ( ’90,300) 

ppi  41  no 

’CO 

K=MR()(  fPG) 

PFI 41120 

IPA=K/100 

PFLAl  130 

tRBs?P4+Mnn(K,  100-1 

PPL  41 lAO 

LEGalAHSd  FGT) 

PPl  41150 

VXPxPGCVdFG,  1,  IRG  ) 

PP)  A)  1 60 

VYR=PGCV(L  EG,  2,  IRG.  ) 

PEI  41170 

PO  3PC  IPUalPA, IflP 

PPLAl 1 90 

ir(  IRSTATI IPU).FO.O)  GO  TO  380 

PFLAl  190 

KP*Mnc( KPUK( 2, IPU) /ICCOOCC,  10) 

PFI  41200 

IF(MCP(MASK/( ( 10**KR )/10) ,10)  .FO. 

0)  GO  TO  3 BO 

PFL41210 

LPLT«aMnP(LSYST(  IPU),  100) 

PP)  41220 

XPaRXYZ( IRU,  2) 

PPL  41230 
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YP*PXYZ ( IPU, 3» 

7P  = PXYZ  C IPUt 

IF(KP  .FO.NSUB » RO  Tn  3CS 
rn  Tfl  tSRSWl,  (302,3C«5) 

FP=7P 

TF<  HP  .1  T.HM  IN  ) HP*H*1IN 
PLnS=S0RT(HR*I68B0.*HR ) ) 

TrTLns*PLrs*eLnsM 

Pfif)  IUS*PSHIP 

1F(KP  .FQ.2)  R/vniuS^RAIR 

CP  TP  IPPSWl,  ( 306,  30A) 

K =6-  KR  / 1 ♦ 1/KP 
RCS  = RPXUK,LPLTR  ) 

P6nSFE=PFTA*RCS**.25 

X=  1.  15A7*T0TL0S 

IF(P AOSFF ,GT.X)  R/nSFF*X 

GP  TP  308 

PADSFF=0. 

SIZC  = .5*(RPX  1(  1,IPLTR1  + RPXU2,LPLTRI  ) 

VISUAL=  .165*SIZE 

IF|V ISUAL.GT.TOTLPSJ  VI SUAL^TOTLOS 
S ir.HT=P  ADSEF 

IF( SIGHT.LT. VISUAL ) SIGHT =VI SUAL 

I FI  SIGHT.GT.RAOIUS ) SIGHT=RADIUS 

GP  TO  311 

SIGHT=SFTA 

pxn=XR-xp 

CYn=YR-YP 

VX=VXR-VXR 

VY=VVR- VY0 

CALI  NOUIREI  INFORM, KWSEG,IBU,IRU,ISEG> 

CALL  GRTFSTI rxo ,nYO,VX, VY, SIGHT, TI NT ,T STAR T,T STOP) 
IFIAPSITINT)  .LT,  .0031  GO  TO  312 
in TSTART.GT.TIMFP I GO  TO  312 
IF!  ISFC.GT.O  ) GO  TO  316 

CALL  APCSEGI INFORM, KWSFG,KTSEG,IBt,IRU,ISEG) 

I FI  ISEC.rO.O  I GP  TO  3eo 

CALL  UPSFGI INFnPM,ISFG,TSTART,TSTOP) 

CPNT INUF 
CONTINUE 

GP  TP  ITSW3, I A,A<C) 

GO  TP  ITSW2,( A02,ACC) 

CP  T^  IPSWA, ( A02,AqC) 

|F(MOniMASK/lO,  10)  .EO.  0)  GO  TO  <,90 
nn  APO  IRU=l,NRTL 
LFGT=INVRTU(  IPU) 

IFILFGT)  A12,<i8C,<,ll 
GP  TP  IBSW5,( A80,A12) 

XRsR  TUXYZ I I, IRU ) 

YP*P  TUXYZI 2, IRU ) 

ZP«PTUXYZIi,  IRU) 

IFIZP.LT.O.)  GO  TO  A80 
VXP=PTUXYZ I A, IRU) 

VYP*PTUXYZ(5,IRU) 


PFLA12A0 
PFLA125n 
REl  A1260 
RELAI270 
REL A1280 
RFL A1290 
PELA1300 
PFLA1310 
RELA1320 
RFL  A1330 
PELA13A0 
PEL  A1350 
REL A1360 
PFL  A1370 
RELA1380 
PFL  A I 390 
RFL AlAOO 
PFL  AlAl 0 
PFL  AIA20 
PFL  Al  A3  0 
PFLAIAAO 
R EL  AlASO 
PFL  A1A60 
PFL  AIA70 
RFLAl APO 
RFL  AIA90 
PFLAISOO 
PFLAISIO 
RFL AIS20 
REL  A1530 
RFL  AISAO 
PFLAISSO 
PFLA1560 
PFl Al57n 
PEI  AISBO 
RFL  AIS90 
PFL A1600 
PEL  Al 61 0 
PFLA1620 
PFl  A16R0 
PELA16A0 
PFLA16S0 
PFl  M660 
PFL A1670 
PPL  A16P0 
PFl  Al 690 
PFL Al 700 
OFLA1710 
RFL  Al 720 
PPI Al 730 
PPL  Al  7A0 
PFl  Al 760 
RFL  Al 760 
PFLA1770 
R El A17P0 
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RIOS«SORT( ZR*(68B0.^7R ) I 
» ^ TnTLnS=RLnS+BLnSM 

c 

cxn=XR-xB 
CYn=YR-YP 
VX=VXR-VXB 
VY=VYR-VYB 
ITU=  ITRL'C  IRU  ) 

KTU=MOn( ITUf 10> 
LPLTR=MCin«  ITU/IOOO,  100) 


REL  41790 
RFL41  800 
RFL 41810 
REL418?0 
RELA1830 
RELA1840 
RELA1850 
RFL A1860 
PFLA1870 
RFL41880 


NTRAJsMODC ITU/lCtlOO) 

PELA1890 

Gr  TP  IRDSW?, (414»416) 

RFLA1900 

A 14 

1F(KTU.E0.2)  go  TC  415 

RFL  A1910 

Rr9*WDATA(  lo,NTRAJ) 

RFL  41920 

cn  TO  Also 

REL41930 

4 15 

PCS=RPX  IC  4,LPLTR 1 

RFL  41940 

41  '0 

P4DSFF=PET4*PCS4*.25 

RFLA1950 

X=l.  1547*T0TL09 

RFL41960 

IF(PAOSFF.GT.X)  RAI)SEE*X 

RELA1970 

GO  TO  418 

RFL41980 

416 

PAnSFE*0. 

REL  41990 

418 

IFIkTD.FO  .2)  GO  TO  41  9 

R FL  42000 

S17F=  .5*«WnATA  ( 1 f ,NTRA  J)  ♦ WDATAl  1 7 ,NT  RA  J)  ) 

R ELA2010 

GO  TO  4190 

PFL  42020 

4 19 

SIZF=  .**(RPXH  l,lPLTR)^RPXl(2fLPLTR)) 

RELA2030 

4190 

V!Sl'AL=  .165*ST7F 

REL  A2040 

IF( VI SUAL .GT.TOTLOS)  V! SUAL»TOTLOS 

PFL  42050 

SIGHT =PAnSFE 

PFL  A2060 

IF(  SIGHT. 1 T. VISUAL ) SiGHT*VISUAL 

RFL 42070 

IF! SIGHT. GT.R4IR ) SIGHT*RAIR 

REL 42080 

JRU*IRU*KPU 

RFL 4 2090 

call  NOUIREI INFORHtKWSFG, IBU» JRUt I SEG) 

RELA2 100 

CALL  GPTFSTI CXP  .OYO.VX.VY, SIGHT, TINT,TSTART ,TSTOP) 

PEL  42110 

IFIAPSITINT)  .LT.  .003)  GO  TO  42  0 

PEL  42120 

IF( TSTART.GT.TIMFB ) GO  TO  420 

PFl 42130 

IF(  ISFC.GT.O ) GO  TO  424 

RFL  A2140 

CALI  APOSFGI INFPRH,kwSEG,KTSEG,IBU,JRU,ISEG) 

'’FL  42  150 

420 

IF(  ISFG  .EO.O)  GP  TP  48C 

PFL 42160 

424 

CALI  UPSfGI INFORM, I SEG, TSTART, TSTOP) 

PFL42170 

480 

CONTINUE 

PEL  42180 

490 

CPNT  INUF 

RFL  42100 

5C0 

rPNT  INUF 

PEL  42200 

PFTUP  N 

PEL  42210 

rwo 

PrL  42220 

3?  PUTINS  NOUI  RF  (I  NF  PRM,I  SNSFG,  I SENS,  IT  GT  ,15  EG) 

N3  UI 0010 

Common/STRCPN/  JPX,IPK 

N0UI0020 

PIMFMSION  INFORM!  1 ),  I SNSEGI  1) 

NOU  10030 

IpniNT.lSMSFG! I SFNS) 

NOU 10040 

ISEG«1PPINT/IPK 

N0UIO050 

1 IF!  ISEG.FO.O)  RETURN 

N0UI0060 

jTGT-MPP!  INFORM!  ISFG),  I PK) 

MOU 10070 

IF!  JTGT.FO.ITGT)  RETURN 

N0U10080 
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JPtJUT=INFnPf»(  ISEr.+  lJ 

Nouroooo 

iSFf.sMf  r( jpriMT,  iPK > 

N'omo  100 

rn  in  i 

NOUlOllO 

FNn 

NO'MOIZO 

si.'opr'JT IMF  ArrsfGC  infhpf',  i snsfg,itg5;fg,isfn<;,itot,  iffg) 

APPSOO  10 

rrMMPM/oFVir  F/  N l,M2tN3.  N4,N5,N6,N7f  N8,N<},NlOtNll , M2 

Af)rsoo20 

CruMnN/STRCPN/  JPK.IPK 

Af)0S0030 

rr«Mf  N/  IMFn/  LrNrFn,LFMSFG.MAXSEG,NFXSFG,LSTSEG,L2rSPG 

AOPSOO^O 

ri'^EMsioN  iN'FnoMcn,  isnseg(I)  ,itgsfg<i) 

APosonso 

CATA  IPP/0/ 

AOnS0050 

IF(NEXSEG.Et).O)  GO  TP  18C 

Aorsoo  70 

ISEG^NF XSrC 

AOGSOORO 

NFXSFr=  INFnpM( J SEG  > 

Anrsno90 

cn  TP  IPO 

AODsnioo 

ipn 

l FFG=l STSFG+LFNSFG 

AOCSOllO 

ir(Lf.FG.GT.MAXSEG)  GO  TG  210 

Aorsouo 

iSEG=i  sf:, 

AOCSOl 30 

LSTSFG=LSFP 

Arnso 140 

i<;o 

IMFnpM(  1SFGI*ISFN?*TPK>-!  TGT 

APOSO  150 

m 200  !Ann=4,LENSFG 

AOr,S0l6O 

2on 

INF()RM(  I5FG+  lAOn-  1 »=0 

Aonso 1 70 

ipn  rMT=  rs'/  ':rG(  I sfa  s » 

Aonsoi flo 

1 Acn= i 

Aonsoi^o 

iFT=i 

A OPS0200 

2Cl 

IP(  IpniMT.r.T.C)  CV  TP  20  3 

Aonso  310 

jFaiA‘T=  ISEG*  rPK+  1 SEG 

AOns0220 

IT'FPPMI  IFEG*  1 AOn  ) = C 

Ancso330 

IE(  1 AGP  .FO .2  I GO  TO  20  7 

AnPS0240 

GO  TO  205 

ArCS0250 

2C3 

JfP  lMT=IP3nT/I  PK*IPKH  SEG 

Ar)rso?60 

Lsrr=*<pn(  [pp  jmt,  ipk  » 

APnS0270 

IMf--roM(  ISFG+I  AnP)=:LSEG*IPK 

APOSO 280 

TNFdP'K  LSFG*  lAOn  ) = U'FnRM(LSEG3-IArir))+  I5EG. 

Arrs02O0 

TF(  IAPP.F0.2I  G(l  TO  207 

Aorso’oo 

2rs 

IFimSFOC  ISFNfS  »=  JPPI  NT 

Aiirso3i  0 

ion  i''  T=iTr,sFn(iTGT» 

Anrso32o 

Ia:)0  = 2 

Arrso3To 

IST=  I TOT 

AO0F03^n 

r.o  TO  201 

AIAPSO 

207 

I TO-Sm  ITGT  ) = jpr  INT 

Aorso-»4n 

c TTMI-’N 

Anrso3  70 

2 10 

APPS03°0 

IF{  IPP  .GT.O  ) RFTIJPN 

Apcsnoop 

iro  = i 

ADOS  0400 

gall  pagf 

Anr'<;(14,  IP 

WP ITF(Mt,hOCO) 

AOrs0420 

f:OCO 

fPRPATI////'  FUIL  IMFORMATIGN  ARRAY*) 

A"rsn4  ■»0 

R TTDPN 

Anrsn44  7 

FMp 

Arrso45o 

N-  no 


SL'RPniJTINr  UPSFG  ( I NFORM  , 1 SFG  t TST  AR  T,  TSTOP  ) 
ri»<FNSinM  INFORM  (1) 

common  /FTIME/  TIME,TlMEAtTIMEBtTBEGINf TlMENOtTlHAK,TSTFP 
ITA-( TS TART- TRF GIN  »*lOOO. 

ITB=(TSTOP-TeFGIN)*lOOO. 

INFORM! ISEG+A)=I TA*ICOCCO»I TB 

INFORM!  ISEC^E  ) = 0 

RETURN 

E»'0 


SURROUT  INF  OE TEC T ! NWU ,NWTUf L SY SW » KWSEG t WR AO ,WX VZ , KWUK, 

1 INTVLMtWGC V tWPXl fENVfMAXWTUt I WSTA T « TUWX VZ « KS YSW , I WTU « 

2 NTU.NTTUtLSYST, KTSEG  fTXYZ,KTUK, I NT VLT »TGCV ,TP X I , A J AM, 

3 ITTU, TUTXYZ ,1TSTAT,KHVT, 

A TOATAflBRSYS, INFORM, CMRAO,  IDUl) 

COMMON/ PEV  ir.F/  N 1,N?,N3,NA,N5,N6,N7,N8,N9,N10,N1 1 , N12 
COMMON  /FTIME/  TIMF,TIMEA,TIMEB,TBEGIN,TIMFN0,TIMAX,TSTEP 
COMMON/ ECONST/  N SH I P ,NA I R , NSUB ,N VSE A,NVALT ,POTMI N, PDMl N, 

1 A IRC PT,FPNM,HMIN,PI .TWOPI ,IENV,ISCAN,IPRAD,1MISC!35) 

COMMpn/STRCON/  JPK,!PK 

COMMON  /WORK/  I WORK ! 100) , WOR KI ! 100 ) , WORK J ! 1 00  I , JWORK ! 100 ) 
OIMENSION  KWORK! 500 
ECUIVALENCE  ! IWOPK!l),KWCRKin) 

OIMENSION  KHVT!  1) 

CIMENSION  I SYSW!  II  ,LBRSYSIl ) .KHSEGII  ) ,WRA0!36  ,1  I , I NFCRM!  H, 

1 WXYZ! inUl,7),TXYZ!I0Ul,7)  ,KMUK(A,l) .INTVLWll)  , 

2 WGCVI  8,5,n,WPXl!12,l),LSYST!l)  ,KTSEG!1)  , 

3 KTUKIA,  1),  INTVLT! 1) , TGC V I fi, 5 , 1) , TPXl ! 12 , I ) , 

A FNV! 1 I, AJAM!6,3,  l),ITTU! I ) , TUTX YZ 1 8 ,l I ,TDATA!2A,1) 

CIMFNSICN  TAR!6) ,FTC!A) , TRAD! 10)  ,RANGF !10)  ,POTECT! 10),ANG!  lO) 

1 OYN!  10) , ITSTAT! 1) ,IWSTAT! II ,KSYSW ! I ) ,TUWXYZ !8 ,1) , 

2 CMPAn!36,l),IWTU!ll  ,RAncnL!36) 

NAMFL  IST/R AOR/  I W , K W ,W Z , I R AD , I TG T , K T, TZ , RC S , ALTGT , RCRNGE , 

1 GP,PnRAD,6ETA ,AL FA , FPEO , BE  A M,  I JAM. K JAM, JAMON, J AM , J AMR , 

2 FTC, TAP, TIME 

NAMEI IST/OTFCT/  TIMF, IW, ITGT,KPn,Pn,GR 

irLASS=IMISr.  !21) 

IPRSAV=  IPP ap 
ASSIGN  170  TO  LPPAD 

IF!  IMISC! 3).GT.l  ) ASSIGN  1700  TO  LPRAO 
CALL  FRPSFT!  ?C8, 300,-1, 1,0,0) 

TPAO!  1 )*T IMF 
TAP!  51  = 0. 

TAP  !6  1=0. 

ITIMF  = ! T Imf-TRFGIN  )♦  1000. 
irTIME=ITIMF*IMISC  ! 1) 

JAMON»IMISC( 2) 

ASSIGN  105  TO  LJSET 
ASSIGN  171  TO  LWSFT 
IW*1 

10  IPSFG=KV.SFG!  IW) 

IF! IPSEC.LF.O)  GO  TO  200 
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UOSFOOIO 
UPSE0020 
UPSF00  30 
UPSFOOAO 
UPSFn050 
UPSFOOAO 
UPSE0070 
UPSFOOftO 
UPSF0090 


PETEOOIO 
0FTF0n20 
OFTFOOBO 
OFTFOOAO 
OFTCOOSO 
OFTFOOAO 
DETCOOTO 
PETEOOBO 
OFTFOOOO 
OFTFOIOO 
OETFOllO 
OFTF0120 
PFTF0130 
PFTFO lAO 
PETEOISO 
OFTFOIAO 
DfTEOlTO 
DFTFOIBO 
PFTFOINO 
PFTF0200 
OFTFOZin 
PFTFOZPO 
nFTFO’30 
DFTFOZAO 
nFTCO’50 
OFTFO^AO 
PFTPQZTO 
PFTFO^RO 
nFTF0290 
OFT FO 300 
OFTEOBlO 
OFTFOSPO 
FFTFO  330 
PETFOTAO 
PFTFO  350 
PFTFOIAO 
PFTF037n 
OFT  F03RO 
PFTFO 390 
OFTFOAOO 
PFTCOAIO 
PFTFOAPO 
OFTFOAJO 


IS=LSYSW(  IW) 

nFTF0440 

LPLTW=MnD( IS, 1001 

nETE0450 

IS=IS/100 

nFTE0460 

IF(  IS  .FO.O ) GO  TG  200 

DFTE0470 

ASSIGN  K TP  IWSFT 

DETE0480 

ASSIGN  I?0  TG  JWSFT 

rFTF0490 

ASSIGN  160  TO  KHSFT 

0ETE0500 

ISFG=IPSFG/IPK 

OFTFOSIO 

1 

IF(  ISFG.FO.O)  GO  TO  20C 

rFTF0520 

ITGT=Mrf)(  INFORM  ( ISFG),  IPK) 

nFTF0530 

ISTAT=ITSTAT( ITGT) 

PFTE0540 

IF(  ISTAT.LE.O  » GO  TO  180 

DFTE0550 

LrSTA=INFGPM(  ISFG^'^I 

nFTF0560 

LCSTe=MOr)<  LOSTA,  100000) 

^FTFOSTO 

LrSTA=lPSTA/100000 

OFTF0580 

IF(  IT  IMF.LT.LOSTA)  GG  to  18 

CFTF0590 

IF(  IT  IMF.GT.LOSTP)  GO  TO  180 

nETE0600 

IFTFCT*  INFORM  (ISEG+5) 

PFTE0610 

IF(  IDTFr.T  ) 11,  12,  1 1 

CFTE0620 

11 

NFXT=  lABSI  IDTECT  1/10000 

nETE0630 

IF( IT  IME.LT.NEXT  1 GG  TO  10 

PFTF0640 

12 

GP  TP  JWSFT, ( 120, 121 ) 

nFTF0650 

120 

ASSIGN  121  TO  JWSFT 

nFTF0660 

WX=WXYZnw,2) 

rFTF0670 

WY=WXY7( IW,2) 

rETE0680 

wz=wxy;( iw,a) 

nETE0690 

IWG=KWUK(  3,1  W) 

PET  E0700 

LFGW*  lAPSI INTVLWI IWG) I 

PFTF0710 

WVX=WGrV(LFGW,l , IWG) 

nFTF0720 

KVY*WGCVILFGW,2, IVG) 

nFTF0730 

iSP*Mnn(is,inooo) 

PFTFOTAO 

MaSK=LBPSYS(  ISP) 

OFTCOTSO 

KW=Mr)C(  MASK,  10) 

0ETE0760 

M8SK=MaSK/lC 

OFTFOTTO 

ISA. IS/  lOOOC 

PFTFOTBO 

KPAFP^MPni MASK/ 1 coco, 10) 

prTF07P0 

KSr)NP=MOD(MASK/lC0C00,10) 

OETFOBOO 

ISP.  ISH-1 

PFTFOBl 0 

IF(KSONR.EO.n)  GO  TO  1203 

OFTFOBZO 

CP  1202  I S*I SA, I SP 

nFTEO830 

JSYS=LPPSYS( IS) 

rFTFOBAO 

IFIMPDI JSYS,  lOl.FC.T)  GO  TO  1204 

PFTFOBSn 

12C2 

CON T INGE 

PFTE0B60 

K SGNP  *0 

PFTF0870 

12C3 

SFTA=0. 

0FTF08B0 

CP  TP  1205 

OFT  F0890 

12C<t 

I SON  .Moni  JSYS/ 10000, 100) 

riFT  Foooo 

SET A=MPC( JSYS/1 CCOOOC, 1000) 

PFTEORIO 

SETA^SCTA*. 1 

rFTF0920 

IF!  SETA  .FO.O.  ) KSpNR»C 

PFTFORTO 

12C5 

IFIKRAPR.FO.O)  GG  TO  1207 

nFTF0940 

rn  1206  is»iSA, I SP 

OETEOPSO 

JSYS-LBRSYSI  IS) 

nFTE0960 

IFIMGGI  JSYS,  lO.FO.l)  GO  TO  1208 

PFTF0970 

12C(S 

CPNTINUF 

PFTF0980 

KP4rP=0 

ASSIGN  170  Tn  IWSFT 
rn  TP  121 
hmast=o. 

IFIKW.NF.NAIR  I HNAST*WPX1(3,LPLTWI 
lPA0=MrD( JSYS/IOCCO, 100) 

rn  1200  1*1, 3e 

PAOmU  I ) = WPAn(  I tlRAP) 

PFTA=RArCnL I I ) 

ALFA*RACCnL(  2 ) 

FPFO=30COO./PAOCOl  I 3 ) 

FTC(  A)=RAnC0H36) 

RFAM=.5*(RAncnL I 22)/57.3) 

W7F  =W2*FPNM-t-HMAST 

IF(W7F.LE  ,0.  ) ASSIGN  170  TO  IHSET 

FTCI 1 )=W7F 

IF!  ITGT.I  F.NTUIGO  TO  130 
JTGT=1TGT-NTU 
ITU=1TTU( JTGT) 

KT=MnO(  ITU,  1C) 

TX=TUTXYZI 1,JTGT) 

TY=TUTXYZ(2, JTGT) 

TZ  = TUTXYZC  3, JTGT) 

IFI TZ  .GT.O.  ) GO  TO  12A 

pr=o. 

KPn*o 
GP  TO  17A 

TVXsTUTXY7IA,JTGT) 

TVY*TUTXYZ(  5,  JTGT) 

I FIKT.FO.NAIR  ) GP  TO  125 
lCOL=Nrp( ITU/IO,  100) 
prS  = TnATA(  19, ICPL ) 

Al TGT=.?*( TDATAI If , 1C OL ) ♦ TD A T A ( 1 7 , 1 COL ) ) 

GP  TP  135 

iPi  TT=pnni iTu/ioco,ioo) 

GP  TP  1 31 

KT®MOO(  KTUX(2,  I TG'»’)  71000000,10) 

TX=TXYZ(ITGT,2) 

TY*TXYZ(  I.TGT,  3) 

T7*TXYZ( ITGT, A) 

IFI  TZ  .LT.HMIN  ) TZ*H‘»1N 
IPLTT=MnplLSYSTI ITGT) ,100) 

ITG*K  TUKI 3, I TGT) 

LFGT-IABSI  INTVL  Tl  I TG  ) ) 

TVX*TGCV(LEGT, 1, I TG) 

TVY»TGrVILEGT,2, ITG) 

IFIK T .FO.NSUP ) GP  TO  135 
ALTGTx.5*( TP  XII 1,IPLTT)  + TPX1(2,I PLTTI ) 
IFIKT.EC.NAIR ) GP  TO  13A 
RCS'TPx1I6,  IPLTT  ) 

GP*SORT(( TX-WX)*A2*I TY-WY)**2) 

CAll  SHIPXSIWZF,GP,RCS,TPX1I3,IPLTT) ,XCS,C,ICK) 
IFI  ICK.EO.O)  PCS*XCS 
fP  TP  135 
PCSsTP  Xll A, IPLTT) 


nFTEO®‘»0 
DETFIOOO 
PETFlOlO 
DFTE1020 
PETFIOSO 
PFTEIO^O 
CETF1050 
PETElOfO 
PFTEIOTO 
PETFIORO 
OFTF  1090 
PETFllOO 
OETEl 110 
DETF1120 
PFTF1130 
OETFllAO 
PFTE1150 
PFTFllftO 
PETEllTO 
OETEl 180 
PETF1190 
OETEIZOO 
CETF1210 
PETF1220 
nFTE1230 
CETF12A0 
0FTE1250 
GFTElPfO 
OETEIZTO 
nFTF12P0 
nFTF1290 
DETF1300 
CFTF1310 
r'FTFl  320 
rFTF13‘'0 
PFTP  1 3A0 
PFTEl 350 
PFTFn60 
DFTFliTO 
^8191380 
rFTEl390 
PFT  El AOO 
OFT  El AlO 
PFTEIAZO 
0FTF1A30 
PETFIAAO 
nFTFlA5.3 
PFTFl A60 
PFTFl A70 
PFTFIARO 
PETF  1A90 
PFTF150n 
PFTcisiO 
PFTF1520 
rFTF1530 
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135 

CX  »TX-WX 

0ETF1540 

nY=TY-wy 

OFTFisso 

CR?=rx*rx+nY*nY 

rFTFl560 

GB*SCPT(GR2) 

nETFl570 

IFlKW.NF.NStJB  .AMP.  KT.NE.NSUB)  GO  TO  139 

PFTF1580 

IFlKSOFiR.FO.Ol  GO  TO  180 

PFTE1590 

PCS0N=*0. 

PFTC1600 

PD=GR2/(SFTA*SFTa  » 

PFTF1610 

IFIPP.I  T.  IQC.  1 Pn?PN*FXP(-.693*PDI 

rFTFl620 

KPn=2n 

DETE1630 

PO^PPSON 

rFTri640 

GO  TP  174 

PETF1450 

1-9 

RV=. 165*Al TCT 

nFTFl650 

PPVIS=0. 

prTF1670 

Pn*GR2/(PV*RV) 

PFTE16P0 

IFlPP.l T.ICC.  ) PPVI S*FXP(-.F9J*P0) 

rETFl690 

PPRAP^O  . 

PFTF1700 

GP  Tn  mSFT,  ( 14,  145,1  70 

OFTFl 710 

14 

ASSIGN  145  TP  IWSET 

nETE1720 

GP  TO  1 JSPT,l  105,111) 

PFTFl 730 

1C5 

ASSIGN  111  TO  LJSFT 

PFTF 1740 

ITYPF=5 

nFTF1750 

JAM=0 

rFTFl760 

CP  no  IT=1,NTU 

PFTE1770 

IS=L  SYSTl  ITl/IOO 

CFTEl 780 

1F(  IS  .FO.O)  GO  TO  no 

rFTF1790 

IA=IS/10000 

CETEIBOO 

iP=MPn( IS, iocco) 

PFTFISIO 

)'ASK=LPPSYS(  IB)  /IC 

nETFlP20 

IF(  Mfini  MASK/ 1000, 10)  .eo.  0)  GO  TO  HO 

PFTPl n?o 

IP=  IB-l 

PETE1840 

P*^  1000  1S»IA,IB 

CFTFIPSO 

JSYS=L3PSYS(IS) 

CETFl 860 

IFIMPOI JSYS, IC)  .NE.  ITYPF)  GO  TP  1000 

''FTC  1870 

ir( JSYS/lOOCCOOOCn+JAMPN.FO.O)  GO  TO  1000 

PFTFIRPO 

icpi  *''Pr(  jsvs/ioGrc,ioc) 

PFTFIPOO 

JAM=J AM+l 

PFTFI''00 

JWOPK ( J AM  ) = I T*  100* IPPl 

PFTCiqio 

ICCO 

CPNTINUF  . 

nFTElP20 

1 n 

rPNTlNliF 

nFTPl«30 

111 

CPNT  INIJF 

nETFl940 

ir(JAM.FO.O)  GO  TP  IA5 

rFTFl950 

J AMP*0 

PFTci.>(SO 

CP  140  JM=1,JAM 

PFT=1970 

lJ*JwnPK( JM ) 

PETE1P80 

IT=IJ/10P 

PFTFIPPO 

fJ^MpOI IJ, 100) 

rFl'P2000 

CP  141  K*l,3 

PETF20  10 

1F(  FPEO  .1  T.AJAMI  5,K,  IJ)  ) GO  TO  141 

rPTF20?0 

1F( FPFO  .GT.AJAMI e,K,IJ) ) GO  TO  141 

PFTF2030 

KJ»K 

f'rTE2040 

GO  TO  142 

PETE2O50 

i«i 

CPNTINUF 

nFTC?060 

GO  TP  140 

PFTF2070 

142 

XJ»TXY7(IT,2) 

0FTF20P0 

c 

c 

c 


YJ=TXYZ ( IT,3) 
rxj  = xj-wx 
rYJ*YJ-WY 


«rGJ  = AT  AM  2( rx J,OYJ ) 

snjP  = scPT(  nxjAnxj'fnYj*DYj) 

J AMRsJAMR+l 
1W0PK(JAMR)»KJ* ICO+IJ 
WCRKI(JAMR)=ANGJ 
WTRKJCJAMR j*snjR 
140  CONTINUF 

IF( JAHP  .GT.O ) ASSIGN  16  TO  KWSET 
145  GC  TP  KV.SFT,  ( 16,  1601 

16  ANGT=ATAN?( nx.OY 1 
CP  161  IJ=1,JAMR 
A=APSI AMGT-wnPK I IT J ) » 

IFIA  .GT  .PI  ) A = TWnPI-A 
IF( A .GT  .PFAM 1 GO  TO  161 
IJAM=  IWORK ( 1 J) 

ETCt2I=W0RKJ(IJ) 

GO  TO  162 
Ifl  CONTINUF 

160  prRNGE=PFT a*rcS**.25 
ETC! 2)*0. 

ETC! 3 ) = 0. 

IJAM=1 
KJAM=  I 
GO  TO  165 
162  KJAWrijAH/lCO 

IJAM^MOni  I JAM, IOC) 

ETC!  3)=2. 

CJ?=  I0.**(  .1*AJAM(2,KJAM,TJAM) ) 

PJ?  = AJAM(  1,KJAM,1JAM) 

PCRNrE=Al  FA*I  500./Pj2*(  1 . 26/G  J2)  **.  25) 

165  IFIPCRNGF.LT.GR ) GO  TO  170 
IFI  IPPAC.GF.C)  GO  TO  17 
PORAr)=FXP(-.  6S3*GP2/(R0RFGE*RDRNGE)  ) 

GO  TP  170 

17  VX=TVX-WVX 
VY=TVY-V«VY 
T7F=T7*FPNM 

CCO  A=VXTGX ♦VY»0 Y 

vr=o. 

IFIGP.GT.O.)  VC=DCRA/GP 
rZ  = APS<  W2F-T2F )/FPNM 
PANGCI  I )=SORT(GR  2+0  7*0  2 ) 

TARI  1 )*AL  TGT 
T AR(  2 )=Rr,S 
TAPI 3)*T7F 
TARI 4)*VC 

CALL  RACAR(RADC0L,ENV,ETC,TAR,AJAM(1 ,KJAM,IJAM) ,TRAC,RANGF, 
1 PCTFCT,  ANG,OYN,  ICK,I  Sr.AN,IPRAO) 


PER AO^PCTECTI ISCAM+l) 
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OFTFZOOO 
PE  TF2 100 
nETF2110 
OFT  F2120 
OETC2130 
rFTF2140 
rFTE2l50 
nETE2160 
PETE2170 
nETE2l80 
0FTE219O 
nFTF2200 
DETF2210 
rFTE2220 
nETE2230 
0FTF2240 
nETF2250 
PETF2260 
rETF2270 
DETE2280 
0ETE2290 
DETE2300 
nETE2310 
OFTF2320 
DETE2330 
0ETF2340 
rFTE2360 
OE  TE2360 
nFTE2370 
OFTE23PO 
0FTF2390 
0FTF2400 
rFTF2410 
rFTF2420 
PFTF2430 
PFTC2440 
PFT  F2A50 
fFT  F?i,60 
PETE2470 
0ETP24P0 
rFTC24qn 
nrTE250o 
rFTF2510 
OFTF2520 
OF  TF 25 30 
rETrpsAO 
OFTP2550 
PFTE2560 
PETE2570 
DFTF2580 
r‘‘TF2590 
nFTF2600 
DFTF2610 
PFTF2620 
OFTE2630 


Gr  in  L PR  in, ( itoc, irci 
17C0  WPITP(Mf,RflnR» 

170  CP  TP  I hSFT,( 171,2301 

171  IF(PnVIS.GT.PnRAO)  Gtl  TO  172 
pr=pppin 

KPn=io 
GP  TP  17<» 

172  pr=prvis 
KPn=o 

n<,  ipn=ino.*pn 

IPO.CT.PP)  IPOstsq 
t FT  FCT=  10000*1  OT  I MF4- 100*  KPn^l  PD 
iF(pn.rE.pnMiM)  gc  to  175 

ICTEC'r=-IOTFr,T 
GC  TP  llh 

ITS  If<kT.NF.I)  on  TP  17S5 

rF(  IPn.LT.  fCLASS  ) go  TP  1755 
JPO=K  HVT(  ITGT  ) 

lF(JPn/lOO  .FQ.  C»  KHVT( ITGT»*JP0*100 
1755  1F(  ISTAT.GT.U  GP  TO  176 

(■ 

C FFTFCTIPN  GAIN'Fn 
C 

ITSTATl  ITGT  ) = 2 

I F(  IM  TSC(  3)  .CT.O  I WR  ITE  1N6,PTFCT» 

176  I^'FPRM(  ISEG*5)=TnTECT 
ift  IFFG=Mpr(  INFORM!  ISEG+ n ,1PK) 

GP  TP  I 

IPO  INFPPM!  lS'=G«-A)=2l^7<,0rC0C 
ir'FP'’M!  I5FG+5)=0 
Cn  TP  IP 
2C0  IW=IW*1 

IF!  IW.I  F.Nk,U)  GP  TP  10 
IFINWTU.EP.O)  GO  TO  24C 
IF!  l^MSC!  6).LT.O)  GO  TP  240 
ASSIGN  230  TO  LWSFT 
I-maST=0  . 

IV=0 

I F!  IPRAP.l T .0  ) IPf  An  = 0 
220  IW=IW+l 

1F(  IW  .GT.NWTU)  GO  TO  240 

!F(  IWSTAT!  |W*NWU).L‘=.C1  GO  TO  ??0 

1TU=IMTUI IW) 

IFIMOni  ITU,  10).NF.4)  GP  TO  220 

IF(«Pn!  IWTU!MAXWTll*IW|/lCOOOOOOO,10).NF.l)  GP  TO  220 

iPPw=Mnri iTu/iocc, loo) 

IRAr  = MPPlKSYSW!  IPOW)/100,100) 

IF!  IPAp.FO.O)  GO  TO  228 
ITP-T*  ITU/irCCCO 
KW*M^'0!  ITU,  10  ) 

WX^TI.'WXV/!  1,  IW) 

WV*TUWXY7! 2,1W) 

W7=TUWXV7! 3, IW) 

WVX  = TUV'XY7  !4,  IW) 

WVY»TUWXY7! 5, IW) 


DETE2640 
nFTF2650 
rFTF2660 
rFTE2670 
nFTE26fiO 
CFTE2690 
nFTF2700 
nFTF2710 
nETE2720 
nFTF2730 
nFTF2740 
nFTE2750 
nETF2760 
nFTF2770 
nFTF2780 
rETE2790 
nFTF?8P0 
PFTE2810 
f)FTE2R20 
nETE2830 
PFTF2840 
nFTF2850 
PFTF2860 
nETF2870 
PFTF70PO 
nFTF2fl90 
nrTE2900 
nFTF2'no 
nFTE2920 
PE'rE29?0 
PCTF2940 
nFTE2O50 
nFTF2960 
''FTF2O70 
rFTF2980 
PFTF2990 
nFTF3000 
PFTEOOIO 
nFTFi020 
PFTFTO'^O 
''FTE3040 
PFTFiOSO 
rETF3060 
rFTF3070 
PETF30R0 
nETE3oqo 
PFTF-JIOO 
PFT  r3l  10 
pFTriuo 
PFT  F3  too 
nFTF3140 
rFTE3150 
DFTE3 160 
PFTEOi  10 
PETFOIBO 
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ASSIGN  lA  TO  IWSET 

CETEBIOO 

ASSIGN  160  TO  K Vi  SET 

nFTF3?00 

cr  225  1=1,36 

OETEAZIO 

225 

RACCOLI  n=CMRAOI  I,  IPAOl 

nFTF3220 

GO  TO  1210 

0ETF3230 

228 

lPn  = q<; 

0ETF32A0 

GO  TO  235 

nETF3250 

230 

IJAM=ETr( 0 )♦.  5 

nETF3260 

iPn=pnR  AO*  100 . 

nFTF3270 

iri iPo.CT.ss » 100=00 

OETF3280 

lpn=ijAM*inc*lPD 

nETF32O0 

IF(  IMISCI  3).CT.O)  WRlTE(N6,RAnRJ 

PFTFO'XOO 

225 

ITU= IWTLI MAXWTU+IW I 

nFTF3310 

IWTIKMAXKTUF IW)=IPn*lCCOOOO*MOn( I TU, 1000000) 

nFTEB3?0 

GO  T6  220 

nETE3330 

ZAC 

CALL  FPRSFTI  208,300,300,2,0,0 

PFTE  33A0 

IPRAD  = 1PP  SAV 

nFTR3350 

RETURN 

OFTP  3360 

FNO 

DFTC3370 

SUBPnuT  IME  SHIpyS(Hl,R  ,SIG,  H S,  SI  G A , H , 1 * X)  SHXSOOIO 

r.  PGM  = NXX.  l.li.G.  VFO.l  7-16-73  FORTRAN  tV  FPCG  SMysn020 

c m fimd  tmf  visi"lf  ratar  x-sect.  of  a surfacf  ship  shxsooio 

r fhr  SHxsnoAO 

C FI  = PAOAO  l-FIGHT,  ft.  / R = RANGF  TC  SHIP.NN  SMySPOSO 

r sir,  = PAOAP  X-SFFT.OF  SHIP,  M2  / C = AREA  0 1 S T . rOMST  ANT  , W HE  R pShx  S G060 

C HS  = VERTICAL  01”. SHIP, FT.  / 1 1 . 0 . L E . C . L F . 2 .0 ) SHXSnOTO 

r.  niTPi'T  SHxsnoRG 


Sir.A  = PADAP  X-SEfTION  VISIBLE  ABOVE  HORIZON,  SC. METERS 

H = aititudc  of  centroio  of  visible  area,  FT. above  surface 

C IXX  = ♦!  IF  RANGF  R.GT.RAOAR  HORIZON 

r = n IF  n.K. 

c*** 

EATA  c/2.0/ 

1 IF  (H5.CT.0.)  GO  TO  8 

IXX  = -1 
PFTtIRN 

C »♦  P AT AP  EOP  I70N 
B IE  ( HI  .1  E .0.  ) HI  = 0. 

FHl  = 1.2280*  SOP  T(H  1 1 
HP  = 0.7  ♦ HS 
PH  = PHI  ♦ l.2289*S0P  TIHBI 
IP  IH.LT.RHJ  go  to  1C 

c***  NOT  V I s ipi  r 

IXX  = ♦! 

return 

C***  COMPI f TELY  VI SIBLE 
10  IXX  = 0 

IF  ( R .CT .PHI  + .OOOII  GO  TO  12 
S I GA  = Sir, 

E = HP  / (CFl.O) 
p'ETURN 


SMXSOOOO 
SHXSOlOO 
PHXSO  1 10 
SHXSOI 20 
SHX  80130 
SHXSOIAO 
SHXSO 1 AO 
SHXRO  160 
SHXSO  170 
SHXSO IBO 
SHX  SO lOO 

SHX  sozno 
SHXSOZIO 
SHXS0220 
SHXS07B0 
SHXS02A0 
SHXS0250 
SHX  S026n 
SHX  sn270 
SHXS02B0 
SHXS0290 
SHXSO 100 
SHXSOOIO 
SHX  S0320 


C**  PARTIALLY  VISIBLE 


SHX  snooo 
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12  P2  = P - PHI 

HH  = (R2  / l.22P‘3»**2 

IF  (HH.r.T.HBI  HH  = HR 

FA  = HR  - HH 

SIGA  = SIG*(  (HA/HR  )**C  I 

H = HH  ♦ HA  / (r.Fl.n) 

PFTUPN 

END 


SHXSOBAD 

SHXS0R50 

SHXS0360 

‘;hxSO370 

SHXSOIRO 

<;hx<;o3‘)0 

SHXSO^OO 

SHXSO^IO 


SUPRDUT  IMF  A Line  A (NP  XTU  , LA  STU  , MA  X TU,  I WS  TAT  , L S VS  W , 1 WTU  , I NVW  TU, 

1 TUWXYZt WPX  I ,MXYZ,WPAO,ENV,KWSEG  tKWUtKWUKtNWUGt 

2 NTU ,NTTU,K  T 5FG t 1 T S T A T , I NT VL T ,TUTX Y Z , K TUK, TGCVtTX YZ.KHVT, 

3 AJAM, ITTU, TPXl.L SYST.INVTTU, 

A TTRAJ,DATASP,WPNDAT, SAM0AT,LBRSYS,INF0PH, IDUl ) 

COMMON/ ECON ST/  N SH I P,  NA  I P ,N  SUB .N  VSE  A ,NVA  LT  »POTM I N,  PDPl  N, 

1 AIRCPT.FPNM.HMIN.PI ,TwnPI ,IENV,I SCAN,lPRAn,IMISC(35» 

COMMON/ CEV ICE/  N l,N?,N3t NA,N5f N6,N7,NB,N9,N10,N1 I ,N12 
COMMON  /FTIME/  T IM F, T IME A , T I ME B , TBEG I N , TI MFND , T I M A X , TST EP 
COMMON  /STRCPN/  JPK.IPK 

COMMON  /WORK/  IWOPKISOI, JWORKI50) tWORK! (50) tWORKJISOI, 

I LSHIP(RO),LDET( 220) ,LACVEC(90) 

DIMENSION  KWORK(50C) 

FCUIVALENCE  < IWORK(l),KWrRKCl)  ) 

DIMENSION  IWSTATI  1 ) , L SYSW ( I ) , I WTU ( 1 ) , I NVWTUI I ) , TUW X YZ (R ,1) t 

1 TTPAJ (5C, I ) .DATA  SMI 2A,1) tWP NO AT ( I 5 , I ) , SAMDAT( 20,11 , 

2 WPXK  12.  1) »WXYZ( IOUl,7),KTSEG(l) , I T ST AT ( I ) , I NTVLT ( I ) . 

3 TUTXYZIB.l)  .KTUKU,  1 ) . TGC  V(  8 , 5 , 1 ) ,TXVZ(I0U1,7  ) , aJAMI  6,  3,  I ) , 

A W'.  AO(  36,  1),  ITTU(  1),TPXI(12,1)  .LSYSTIl)  ,FNV(l) 

5,  LBRSYSI  1),  INFORMin.INVTTUin.KHSEGd) 

6,  KWUKI  A,  I ),MWUG(  D.KHVTI  1) 

CIMFNSION  TR ADI  IC)  .POTEC TI  10)  .ANGIIO)  .DYNIIO) .RANGFIIO)  .ETCIA) , 

1 TAPI6) 

DIMENSION  MXGAGE I 5 I.LGRPI  18) 

FOUIVALFNCE  I IMISCI A),I SIDE) 

FDUIVAl  FMCF  I IM  I SC  I 20  ) , L R ATE  ) 

NAM CL  IST/CMLNCH/  TIMF , I WPN , I TU , I W PNTU , KW, KSYS , I TGT , KT ,GR , I P D 

NAMFL  I ST/ACVFC  T/  TIMF  , I WPN.I  TU.I  WPNTU , KW,  KSYS,  I TGT.KT  ,r,R  , IPD 

NAMEL  IST/SSWPN/  time,  IWPN.KW, KSYS, ITGT.KT.GR, TRUNIN, IPD 

namelist/  SAM/  TIMF, IWPN, KSYS, TA,TFA,GR,ITGT,KT, POT 

NAMFL IS T/SAGUN/  T I ME , I WP N, K SY S, T A , TF A ,GP  , I TGT  , KT 

NAMFL IST/AAMOEF/  T IME , I WPN , KSYS, TF A ,GP , I TGT , KT 

^'AMFI  1ST  /SAMLST/  T IME  , I WP  N,  I TGT , NWS  T AT  ,GR  , X ,R  OR  NG  F , POT 

DATA  MAXX/2 IA7A0CC00/ 

DO  110  1=1,5 
IS= IM ISCI I*30) 

LS=Moni IS, 100 ) 

1S= IS/100 
IFI  IS.FO.O)  1 S = LS 
IFI  ISIDE.FO.I  ) LS=IS 
1 10  mxgAGFI  I )=LS 


ALLonnio 
ALL00020 
A1  I 000  30 
ALLOOOAO 
ALIOOORO 
ALL  00050 
ALLOOOTO 
ALL  00080 
Al LOOOOO 
ALLOO  100 
AL LOO  110 
ALLn0120 
ALLOOnO 
ALLOOl  AO 
ALLOOISO 
ALL 00 160 
ALLOO  170 
ALLOOlflO 
ALLOOIOO 
Al  L00200 
Al  L00210 
ALL00220 
All  00230 
ALL002A0 
ALL00250 
ALL00260 
Al  Ln0?70 
ALLn()28a 
ALL00200 
ALl'^OSno 
All  OOilO 
Al.  100320 
Al  LOO  330 
ALLO03A0 
ALl  00350 
ALL00360 
ALLO0370 
ALL00380 
Al  LOORQO 
ALLOOAOO 
Al  LOO/dO 
AL  L3  0A20 
Al  LOO  A 30 
Al  LOOAAO 


1 


i 

i 


I = 

') 


i 

i 


1 


N-  118 


ASSIGN  546  TO  If^PASS 

A|  100450 

ASSIGN  465  TD  IRFAIL 

AL  100460 

IF!  IMISCl  19)  .LT.  20)  1WISC(19)*20 

Al  1 00470 

RSTMIN=IM ISC( 19) 

ALL0O4R0 

RSTMIN=PSTNIN*.001 

ALL 00 490 

NHVTsMrOlK  HVTI  19  ) , IOC) 

ALL00500 

TRAGI  1 )=T IMF 

ALL005  10 

TAO ( 5 ) = 0. 

ALL00520 

TAP( 6 )=0, 

ALL00530 

TGHFK  =lMl<;r(  29) 

AL  1 00540 

TPACK=T  IMF-TSTFP 

ALI 00550 

T7FRn-=T  IMF-TRFOIN 

Al  1 P0560 

JAMPN  = IM1 SCI  2) 

AL  1,00570 

Nl  PP=IMISCI3) 

Al L00580 

IT  iMr=TZFPn*  1000. 

Al  IO05P0 

ASSIGN  oil  TO  KSWTl 

Al  LO06OO 

NVFr.  = 0 

Al  L0061  0 

KMftSK  =12 

At  LPO620 

rr  125  1=1,2 

ALLP06'>n 

no  120  I^(=1,KWU 

Al  Ln0640 

LS=LSVSWI IW) 

Al  100650 

TSP=Mprii  s/ioc, icoco) 

AL 100660 

IFI  ISB.FC  .0)  G.O  TO  12C 

Al  LP0670 

M ASK  =LPRSYS(  ISO  ) 

Al 1 nO6P0 

IF  1 mask  .NE.KMASK  ) G.O  TO  120 

Al LG0690 

iri  IWSTATI 1W).LE.0I  GP  TO  120 

Al  LOO  700 

MVEC  = NVFG.  ♦! 

AL  LOOT  10 

i'aGVFG  (NVFC  ) = IW 

Al  1 00720 

120 

GPNT INUF 

ALL"’O7T0 

1F(  I .EC.l)  NASM=NVFC 

Al  1,00  740 

KMASK  =1 C2 

Al  L00750 

125 

G GMT  I Nil  F 

Al  1/^0760 

A.'AA‘''  = NVEG-NASm 

Al  1 TO  770 

MGFT=0 

All  I07&0 

GO  220  nr.T=l,NTU 

Al  1 P0790 

K CFC=K  T<:f  GI  ITGT  ) 

Al  1 PPOOO 

1 FI  KSFG.FO  .0  ) GO  TO  220 

A.  1 "ICR  10 

NTSTATr ITSTATI ITGT ) 

Al  1 '’OR20 

IFIMTSTAT.LK.O)  GO  TP  22C 

Al  1 on 'I  TO 

KT  = MPn| KTUKI 2, I TGT ) /I  Conoco, 10) 

All  "'ORAO 

IF<NTSTAT-2  .GF.  MXGAGFIKT))  0,0  TO  220 

Al  1 OORT  0 

IVAI  =0 

A|  1 noR7.o 

IFIKHVTI  ITOT)/inCP  .GT.  0)  IVAL  = 100 

Al  1 PORTO 

ISFG=KSFG/IPK 

Al  1 pnopf) 

205 

IFI ISFG.Pq.C)  GO  TO  220 

Al  LP0H90 

IPn=  INFCPMI  ISEG+5) 

Al  1 OOOPP 

IM  IPC.GT .0)  GO  TP  214 

All  lO'^lO 

210 

lSFG=MnGI  INFPOMI  i<;fg*2),IPK) 

Al  1 ">0920 

GO  TP  205 

Al  1 009T9 

2 U 

IFINOFT.I  T.220)  GG  TP  215 

M 1 00040 

WPITEIN6,6214) 

A|  1 lOQSO 

62  K 

FORMAT!  • ♦♦♦  SURPOIJTINF  ALLPCA,  OETECTIPN  ARRAY  LOFT  FOIL  ♦**•) 

AlLOOQhO 

OP  TP  224 

ALLOOOTO 

215 

NGFTsNPFT^  1 

All  OOORO 

1PG=*'0G(  IPD,  100)+IVAL 

Al  1 P09Q0 

j 

I 2iO 

22<* 
225 

> 2 26 

: ( 

) 

2 30 


LrET(NnET)=|P3*  lOOOOft  SF3 

A.  L 3 1 000 

Gn  TO  2 10 

ALLOlOlO 

CONTINUE 

ALni020 

IFINCET  .EO.O)  GO  TO  40C 

ALL01030 

ASSIGN  226  TO  I ShVFC 

A1101060 

IVEr=0 

ALLOl  050 

GO  TH  I SWVEC, 1226,232,2311 

ALLO1060 

MAX»L  GET! 1 1 /lOOOO 

AH  01070 

IMAX=l 

ALL01080 

Cr  230  I=l,NDET 

Al  10 1000 

K*LPET<  11/  lOOOO 

Al  LOl  100 

IF(K  .LE  .MflXl  GO  TO  230 

ALLOl  110 

MAX=K 

ALLOl  liiO 

IMAX*  I 

ALL01130 

CONTINUE 

ALI 01160 

IF(HAX.FO.O)  GO  TO  40C 

Al  101150 

IPD=MAX 

ALLOl 160 

IVAL=MAX/100 

Al  LOl  170 

MAX^L  TETI  IMAX  1 

ALLOllPO 

1 rET(  IPAX  1=0 

Al  LOllOO 

ISEG=MCC(MAX, lOOCO) 

ALL01200 

KSFr=fNFC1PM(  ISFGI 

AL  L01210 

ITGT=MnO(KSFG, IPK) 

AL  1 01220 

KT  = M(iO(  KTUK  ( 2 , I TGT  ) / 1 000000,10) 

ALL012‘»0 

NTSTAT*  ITSTA  T(  1 TGT  1 

Al  1 01260 

MGAGF=MXGAGF(KT  1*2 

Al  101250 

IFINTSTAT.GE.MGAGE  1 GO  TO  225 

ALL01260 

TX*TXYZ ( ITGT, 2) 

Al  LO1270 

TY=TXY2(ITGT,3) 

ALL01280 

TZ=TXY7(1TGT, A) 

ALLO  1200 

IWPM=KSFr,/IPK 

Al  L01300 

mwstat=  iwstat  c ihpn  i 

ALL  013  10 

iriNWSTAT.lF.O)  GO  TO  225 

ALI  01320 

1S=1  SYSl^I  IV,PM  1 

Al  1 01  330 

TPL  AT=f»rni  IS,  1001 

AL  L n 1 360 

IS=IS/  ICO 

Al  101350 

ISB=MOO( IS,  100001 

ALL  01  360 

I'A= IS/  10000 

Al  1 01370 

MASK  =L  PR  SYS  ( ISP  1 

Al  1 01  3P0 

ISS=TSP-3 

Al  LOl  300 

KWsMOCI MASK,  10  1 

ALI  f’l  600 

IF!  IVEG  .FO.  11  GO  TO  23S 

Al  L01610 

IVFC=Mrn(MASK/lCCCCCCO, 101 

AL  1 01620 

IF(  ivEG  .EO.O)  GO  TO  23S 

Al  LOl  63  0 

ISEG=0 

ALL  01660 

IFIKT.FU.NA  IR  1 GO  T'l  236 

Al  1 ni6S0 

K CM  X 1 0 

Al  1 01660 

ICMsiSA 

Al  L01670 

ICMP=  ISS 

Al  1 01680 

ASSIGN  232  TO  I SWVFC 

ALL01600 

KM*  ICM  ♦! 

AL  LOl  500 

IFIK'TSTAT.GF  .MGAGF  1 GO  TO  226 

ALI  01 51 0 

IF(  ICM.GT.  ICMB)  GO  TO  233 

Al  LO1520 

ISYS^LPRSYSl  ICM  ) 

AL  LOl 530 

IFiMOni  ISYS,  1001  .NF.  KCMl  GO  TO  232 

Al  LOl  560 
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1 1 

i : 


j 


ij 


233 


2 3A 


235 


2 36 
237 


235 


2 29 


260 


IWPM=Mrp( ISYS/ICC, ICO) 

ALL015S0 

NWSTATs  IWST4T( IWPK) 

ALL  01  560 

IFIMWSTAT.LE.O)  GO  TO  232 

ALL01570 

CALL  M0U1RE(  INFORM  ,KHSEG  tl WPN,  I TGT, I SFG) 

ALLO15B0 

GC  TO  231 

ALLni590 

IFJNASM.FO.O)  GO  TO  226 

ALL01600 

1AC*1 

ALL01610 

IBC>NASM 

ALL01620 

GO  TO  235 

ALLni630 

IF(NAAM.FO.O)  GO  TO  226 

AL  L01660 

1 AC=NASM*l 

ALL01650 

IPC*NVFC 

ALL01660 

IF(NTSTAT.GF.MGAGF)  go  to  226 

ALL 01670 

ASSIGN  237  TO  I SWVFC 

ALLO160O 

CO  236  I*IACttBC 

ALL01690 

lWPN=LArVFr(  I ) 

ALL0170n 

wx=wxy2(  IWPN. 2) 

ALL01710 

WY=WXYZ ( IWPN, 3) 

ALL01720 

OX=TX-WX 

ALL01730 

OY=TY-WY 

ALL01760 

GR2=DX*CX ♦nY*DY 

Al  L01750 

IWOKK  I I )=r,R  2 

ALLni760 

IFINTSTAT.GF.MGAGF  ) GO  TO  226 

ALL01770 

MIN=IWORX(  lACI 

ALL01780 

IMINrlAC 

ALL01790 

rr  238  I*I AC, IRC 

Al  LOIBOO 

K=  IWORK ( I 1 

ALL01810 

IFIK.GE.MIN)  go  to  238 

ALLni820 

IH  IN=  I 

ALL01830 

•M  IN  =K 

ALLni860 

CONT  INUF 

ALLH850 

IF(MIN.FO.MAXX)  GO  TO  226 

Al  LOl  860 

IWOKKI IMIN)>MAXX 

ALL01870 

IWPN*LACVEC(  IMIN  ) 

ALLOIB80 

NWSTAT*  IWSTATI IWPN) 

ALL01890 

I FINWSTAT.LE  .0)  GO  TO  237 

ALL  01  600 

GO  TO  231 

ALLOIOIO 

IFIISEG.GT.O  .ANO.  INFOPMII  SEG66  ).GT.0)  go  to  225 

Al  101620 

WX>WXY7 ( IWPN, 2) 

ALLni630 

WY«WXYZ ( IWPN, 3) 

AIL0  1660 

W7»WXYZ 1 IWPN, 6) 

Al  LOl 050 

rx»Tx-wx 

Al  LM1960 

CY=TY-WY 

Al  101070 

GP  2»rtx*nx  ♦oy*DY 

Al  LOIoro 

CR»S0RT(GP  2) 

ALLni660 

IFCKT-N4IR)  26C,27C,265 

Al  102000 

ASSIGN  267  TO  ISWT3 

Al  L020  10 

ASSIGN  285  TO  ISWTl 

Al  102  02  0 

ACSIGN  262  TO  ISWT6 

All  02  030 

IFINHVT.FO.O)  GO  TO  261 

ALL02060 

IFIIVAL.GT.C)  GO  TO  261 

AILO2050 

IG*KWUK(3,IWPN) 

Al  L02060 

|HVT«MOO(KHVTI IG), 100) 

ALL02070 

IF! ITSTATI IHVT).NE.2)  GO  TO  261 

ALLO2080 

X>MOn(L  8RSYSI  ISB-1)/100, 10000) 

ALL02090 
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; IF(  .S«y.LT  .GP  ) r,0  TO  225 

i 241  rPNTINUE 

V k<:y<;=12 

^ !AC=4 

: rp  TP  pPti 

! 242  ^‘;^L vp=rATAS‘*(  s.irpL)  ♦ .5 

1 i5;Aivn=n 

t ASSir>.  243  TD  1SWT2 

; IPP=THPW 

|ppn=q'7 
GP  TP  ir5 

243  isai  vn=iSALvnTl 

: rATA«;M(  23,  IGOL  ) = nATASM(  22,  ICnL)«-l. 

IF(  f l PE  .PT.G  » WR  ITp  (N6,r.MLNCH> 

C 

C CPUISF  MISSILF  LAUNGHFn 
C 

1F(  I5AI  Vt’.ro  .N';aLVO»  go  to  245 
: GO  TP  3C5 

; 245  TPIJN  IN=-T/FR0 

PTIMF=nATASMI  A, IGOL ) 

, GG  TP  330 

j 247  IF(KW  .FC.NAIR)  GP  TP  255 

* 243  KSYS=R 

ASSIGN  225  TO  ISWTP 

2A^  ASSIG''  250  TO  ISWTl 

GP  TP  2P0 

250  PYAx=WPMnAT(  l.IPPl) 

IF! OR  .GT.PWAX I GO  TO  23? 

PTI«‘r  = WP'"nAT  ( 6t  Tf  PL  ) 

TPUN iN=GP/wPNnAT <?,irnL ) 

I IF(^'LPP  .GT  .0  ) WR  ITFINf.SSWPN) 

■ GP  TP  730 

255  KSYS=22 

ASSIGN  2P5  TO  I sun 

j 256  IF(  mtST  AT.GF  ."'GAGF  I GP  Tp  275 

I ASSIGN  2hO  TO  ISUT3 

AFSIGN  305  TO  ISUT4 

ASSIPM  262  TP  ISWT2 

257  IRD  = lPl  AT 

: iAr=? 

7 = . 5*(K7+T7  ) 

P7  = HPX  I ( 7,  I PL  AT ) /6. C3C 

VA=WPXl{NVSrA,IPLAT) 

\/P=uip  X 1 (MVAL  T , I PLAT  ) 

WV=V.*.*t  VP-VA  )<-7/P.7 
IF(  .PT.VR  ) WV  = VP 
LFAI-  =LPPSYS{  ISP-21 
IfAPr lAPSILCAP/lCrCOOOl 
I : IF(  I GAP  .1  L .0  ) GH  TO  28C 

IF(  IWRT AT ( IP  AH J .GT  .c  ) GO  TO  259 
! 25P  I GAP=-t  GAP 

1 PR  SYS!  ISP- 2 l=L  CAP 
j GP  TP  2 30 

259  ir(  I PRSYS(*»nn(Lr  AP /lOOf  100001  ) .EO.OI  go  to  258 


ALLn2l00 
ALL021 n 
Al  192120 
ALL  (12  130 
M L 02  140 
ALL021 50 
ALL02  160 
ALLPPITO 
Al  LO2180 
Al  I 02  loo 
A1.L02200 
Al  LO2210 
ALLP2220 
Al  L 02 7 10 
Al  L92240 
Al  L02250 
Al  L 02267 
Al  L 17370 
ALLO77P0 
Al  LO22O0 
ALL  02  JOO 
AL I 02310 
At  1 (12  320 
Al  I ('2  3 30 
ALL  02  14  0 
Al  I 07  3 50 
ALL02360 
Al  I 02  3 70 
ALl.O?  3B0 
AL  1.92300 
Al  L 13400 
flLL'1?4  10 
Al  I 

A|  I 112430 
Al  LO24*.0 
Al  I '124  60 
AL  L |■'746'A 
Al  I 1?4  70 
AL  L 7 7^,.’10 
Al  I '2490 
A|  I 12500 
ALl "2510 
Al  I "26  20 
All  N’^^’O 

Al  I '^2  96" 
Al  I V6‘iO 
Al  I 12  6 60 
■L  L "2  6 7" 
A|  I 'I?  6 'to 
AL  I ' ■>  600 
Al  I "2(  "0 
AL  L T'll  0 
At  I 1^62  0 
All  12  6 3 0 
AL  L 12640 


I’ 

I' 

I 


!' 
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CX=WXYZ(ICAK,2» 

CY*WXY7 ( ICAP , ?l 

rx=cx-Tx 
CY=CY-TY 

GC  T2*t)X*5X+)  Y*0  Y 

IF(GP2  .GT.  1.0l*GCT2)  GO  TO  225 
GO  TP  280 

260  k<;ys*16 

ASSIGN  272  TO  ISWTl 
ASSIGN  225  TO  ISWT3 
GP  TO  280 

A/C  FAS  AFFN  VFCTPRFD 

262  JTIMF=MAXX 

IF(l  CAP  .LE.O)  GO  TP  26A 
C 

LINF=MpC(LCAR/lOCt  lOOOOl 

CX=CX-WX 

CY=CY-WY 

RFSTORaSOPTl  DX*OX-*-DY*DY»  /WV 
IF(RFSTPP  .LT.RSTM1N>  RESTORsRSTMI  N 
JTIMF=PFSTnP*1000. 

LS=l  BRSYStL  INF  » 

IF( LS/IOOOOCO.FO.OJ  GO  TO  263 
KS9=Mnp(L  SYSWI ICAR  I /lOCt lOOOO)-2 


ALLn2650 
A|  102660 
ALLn2670 
ALL0Z6P0 
ALL32600 
ALLOZTOO 
ALL02710 
ALL02720 
ALL02730 
AL  1.02  740 
ALL02750 
ALLn2760 
At  L02770 
ALL02780 
aLUn?7<?0 
ALL02flOO 
ALLn2fllO 
ALLOZflZO 
ALLn2fl30 
ALLn2fl40 
Al  L02fl50 
ALLn2860 
ALL02870 
ALLP28R0 
Al  102890 
Al  L07900 


i 

I 


i ] 
i i 


IFIl  RRSYSIKSB ).GT.ITIMF*100)  GO  TO  263 
LPPSYS(KSB)=nTIMF*lPATE)*lOO 
L RRSYSIL INF )=LS-  1000000 
JTImcsjtiME+ITIME 
GO  TP  264 

263  JT|MF=JTIMF*L1NE*ICCC00 

264  IWSTATI  IWPNI*-JTIMF 

IFINLPR  .GT.Ol  WP  ITE(N6,ACVFr.T) 

GO  TO  335 

265  IPINTSTAT.GF  .moaGF  I GO  TP  225 
ASSIGN  272  TO  ISWTl 
KSYS=24 

IFIKW  .FC.NAIR J GO  TO  256 
ASSIGN  248  TO  ISWT3 
GO  TP  249 

270  I F(N  TSTAT.GE  .MGAGF  ) GP  TO  225 
IFIKW. NF.MA  IR  ) GO  TO  225 
IF(MPn(MASK/10,  1000)  .NF.  010)  GO  TO  225 
KSYS=23 

ASS IGN  225  TP  I SWT3 
ASSIGN  272  TO  ISWTl 
GP  TP  257 
272  IV=0 

NS=WPNnATI  I,  ICPL  )*  10.  + .5 
lFIMS.GT.9q9)  NS«999 
ITG»KTUKI 3, ITGT) 

LFG*I AESl INTVLTI ITG) ) 

TVX*TGr  VILFGt  1.  I TG  ) 

TVY»TGGV(LFG,2, ITG  ) 
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CAl  1 fNff-P  T(  T*,T>,TV)(,TVY,WX,WY,WV,WVXtWVY,r)FLT  I) 
lF(  r f lt  i.L  F .0 . 1 r,r  tli  ??5 

IFCDELT  l.GT.AIRrpT)  GO  TO  225 
ASSIGN  in  ISWT2 

GG  Tf'  30  5 

2 76  TIJWX  Y^  ( A,  I TU  ) = WVX 

TIJWXYZI  5,  ITU)  = WVY 
or  Tf'  2 62 
280  IS=ISA-1 
2P2  !F=IS+I 

IF(  IS.GT.  ISS)  Gfi  Tn  I SW  T3  , ( 26  7,22  5, 268  ,260) 
ISYS=Lf’PSYS(  IS  ) 

IFIMr'GI  ISYS,  100  ) .NG.  KSYS)  GO  TO  2 32 
lAVAII,  = ISYS/ICOOCOOOO 

iSTnr<=Moo( I SYS/irooooc, lOO) 

IF!  ISr(iCK*IAVAIL  .FO.  0)  GO  TO  282 

icni  =MPr( iSYs/iocoo, ICC) 

IPnw=M[  Cl ISYS/IPC, 100) 
cr  TC  ism,  ( 285,250,272) 

2f5  IV=1 

irFF=o 

2C0  PMAX=TTt^AJ(  I0PF*3,  IGGL  ) 

IF(  GP  .GT  .0'<AX  ) GO  TO  28? 

rXTRAJI  KIFF  ICfiL  ) 

IF(  GP  .GT.PMIN  ) GO  TO  ?n 
IF(  IV.FC.2)  GO  TO  282 

IV  = 2 
irFF=?6 
GG  TG  ?F0 

ICO  fJS=R“AX-GR 

cr  TO  ISWT^,,  ( 262,305) 

3C5  IF(^'r  XTU.RQ.O)  GO  TO  310 
ITU=‘'R  XTII 

V FX  ni=  IV>TlJ(  I TD) 
rr  TP  ’IS 

3 10  GG  Tr-  KSWTI,  (3  1 1,2(1?) 

311  IFd  ASTU.l  T.MAXTU)  go  to  312 
WR  ITF(Nt,f,3l0) 

6310  rGP*''AT(  6X,  • TFMppraf  Y UNIT  MATRIX  FULL') 

AFSTGN  ?P2  TO  KSWTI 

irilAG.FC.A  .AND.  ISALVO.GT.O)  GO  TO  265 
rr  TG  282 

’ I?  ir(  lAC  .TO.  2)  GO  TP  316 
IF(  ISF(..0T  .0  ) GG  TO  316 

r Ai  I Arrstri  i'ifopp  ,kwsfg  ,'<tsfg, i wpn,  I tgt,  isfg) 
in  ! FFG.FO  .0  ) gg  to  22  5 
3 16  L eSTU  =1  ASTL«  1 
IT||x|  ASTII 

2 IS  TIIWXYZI  I,  I TIJ)  swx 
Tllwx  y;  ( 2,  I Til  ) =WY 

Tiiwx  YZ  ( 3, 1 Tn  ) =wz 

TDWX  Y ; ( 7 , I Til  ) = T I vf  X 
TIJWXYZI  8,  I Til  ) = T8  A(  X 
|WP«'  TU*  I T'l+X  WH 
IWST  ATI  IWPF'TIJ  1=  1 
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3(  L03200 
ALLn3?l 0 
A(  I O32?0 
A|  (.0  3230 
Al  L03?60 
A|  L03250 
ALl  0 3260 
All  03  7 70 
Al  1.03200 
Al  1.03200 
AL  LO3  300 
A|  I 03310 
Al.  L03  320 
ALL03330 
ALL03T/,0 
AL  L03TS0 
M L03360 
AL  1 03370 
Al  LO3380 
Al.  I 0 3 300 
AL  113600 
Al  L0.3S10 
Al  I 33620 
ALL  ■’3S30 
Al  I '136S0 
Al  I -OSSO 
Al  I n3Sf  0 
Al  I '^3670 
Al.  L'13^80 
ALL  0 3600 
'I  I O’Sf'O 
'•I  fas  10 
A'.  I 1 3520 
A.'.  13S30 
Al  I P3SS0 
Al  I 33SF0 
n 10  356,3 
'I  1 0 3 5 7 0 
Al  L 0 3 5 up 
Al  l.  0 3 5<^0 
M L 03 503 
A I I 0 3^13 
Al  I ■'3‘'23 
A|  I 13  6 ->  3 
Al  1.  6A  3 
Al  10  3 6 6 0 
All  I 3 ‘•6  0 
Al  I.  ^3670 
A|  LO35n0 
A|  I 03  6 00 
*!  I >^3  700 
A|  1 3->  71  3 
Al  I M j 72  0 
A)  I 3 3 730 

ALL  03  763 


IWTUC  ITU)=ITGT*  lCOOC04-IRP*lOOO+ICOL*lO*I  AC 

I»GR*10.  + .5 

IF(  lAC.EO  .2»  I=ICAR 

IF(IAC.F0.2)  TRPn»IROW^ISTrXK*lOO 

IWTU(M»  XTU+l  TUI=  I*l  COIWPNfl  RPn*l)3J)J3 

INVWTUJ ITU»*ITIME*100000+NS*100+I V 

GO  TD  ISWT2t (243,?62«276) 

330  JTIME=»TZERO^RTIME»*IOCO. 

KTIMF  = I TZFRO+TRUNIN)*1COO. 

IF(  JTIMF.LT.KTIME)  JTIMF*KTIME 

IF(  ISEG.FO.OI  CALL  ADDSEG ( 1 NFORMt KWSEG ,KTSEG, I MPN, I TGT , IS  EG) 

IF( ISEG.FO.O)  GO  TO  225 

IK'FCRMI  ISFG+3»*GR*IC.>.5 

INFORM!  ISEG+6 )»I S*lCOOOC*JTIME 

INFORM!  ISEG4  7 )*ITIME*IC0000*K1IME 

K*1000000 

IF! IST0CK.EQ.99)  K*0 
LERSYS!  IS)*ISYS- lOOCOOOOO-K 
335  NTSTAT=NTSTAT+l 

ITSTAT! ITGT) *NTSTAT 
GO  TO  225 
ACO  CONTINUE 

ASSIGN  A77  TO  KCHEK 

IF!MOC! ICHEK, lOI .GT.O)  ASSIGN  A765  TO  KCHEK 
ASSIGN  A95  TO  LJSET 
ASSIGN  E20  TO  KJSET 
IFINTTU.FO.O)  GO  TO  60C 
NPET^O 

CO  A20  T=l,NTTU 

IF! INVTTU! I ) .FO.O)  GO  TO  A20 

IF! TUTXYZ! 3, I I.LE.O. » GO  TO  A20 

K*I-fNTU 

IF! ITSTATIKI.GE.MXGAGF! A)+2  I GO  TO  420 
KShG=KTSEG!K  ) 

IFIKSFG.EO  .0  ) GO  TO  42C 
ISFG=KSEG/IPK 
TxTUTXYZ! 7,11 
JT  IMF=!  T-TBEG  IN  1*1000. 

IF! JT  IMF.LT.O)  GO  TO  42  0 
IF!  ITTU!  n/lCCOCC.EO.O)  J II  ME  *22  000 
4C5  IF!  ISEG.FO.O » GO  TO  42C 
IPr= INFORM! ISFG*5» 

IF!  Ipn.LF.O)  GO  TO  41  * 

NCFT^NOET+l 

LOFT IMOET ) =J T IMF* 1 n000*K 
GO  TO  420 

415  ISEOsMOC! INFORM! ISFG*2ItIPK» 

CO  Tfl  405 
420  CONTINUE 

IFINCFT.FO.O  I GO  TO  600 
425  MIN*l  OET!  I ) 

IMIN«1 

CO  430  I*1,NDET 
K«LOET! n 

IF!K  .GF  .MIN)  GO  TO  430 


ALL03750 
ALL03760 
ALL03770 
ALL03780 
A.L3  3700 
ALL03800 
ALLOaniO 
ALL03820 
ALL03830 
ALL03840 
ALL03850 
ALL03860 
A1103870 
ALL03880 
ALL03890 
Al  LO3900 
ALL03910 
Al  103020 
ALL03930 
ALin3940 
AL  103950 
ALL03960 
AL103970 
ALL03980 
ALL03990 
Al  104000 
ALLOAOIO 
A!  L04020 
ALL04030 
ALL04040 
ALL04050 
Al L04060 
AL104070 
Al  I 04080 
A!  I 04090 
ALIOAIOO 
ALLOAl  10 
ALL  04 1 20 
ALLO^nO 
ALLOA  140 
ALL041  50 
Al  L 04 160 
Al  104170 
Al  I 041  no 
AL  L04  190 
Al  I 04200 
All  04210 
ALL^4220 
ALL  042  3 0 
ALL04240 
ALl 04250 
ALL04260 
ALL04270 
ALL042B0 
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M !N=K 

I 

C^NTINI'F 

IF(M  IN.FO.MAXX)  Gr  TP  FDC 
Lf'EK  lMIM)  = f'AXX 
TTOT  = Hrr(M  lA  , 10000) 

ITU=I  TGT-'iTU 
KSFG=KTSFG(  ITGT  ) 

ISHC='<SEG/IPX 

w^;hIP=0 

MrRp=o 

TX  = TUTXVZ(  I, ITU) 

TY=TUTX>f7(  2,  ITU) 

T7  = TUTXY7I i,  ITU) 
rVX=:TUTXY7(4,  ITU) 

TVY=TUTXY7 ( 5, ITU) 

TV7  = TUTXYZ 16  I ITU  ) 

TVFr=TUTXY7| e.ITU) 

TinS=SPPT(T7*(6a8r.T-T7)) 

A35  IF( ISFG.FO.C)  GO  TO  A4C 

IF(  INFPPF ( ISFG*S  ) .1 F .0)  GO  TO  437 
xSFf  = U;FnP‘<(  I SFG  ) 

IWP»i  = KSFG/IPK 
ir  = KWUK  < 3,  IWPM  I 
in  MGOP  .FO  .0  ) GO  TO  406*5 
CT'  4?, 6 I=l,YGPP 
IF(|  rpp)  I ) .FO.IG)  GO  TO  437 
426  rouTINUF 
4365  YGkP=MGPP«-l 

1 GPPI YGPP  ) = IG 

4 37  I«:PC=Mpr(  IMPOPMI  IFFG+2),IPK) 

rr  TP  4 30 

440  I F( MGPP  .FO  .0  ) GO  TO  4?E 
cr  44P  K=1,MG'’P 
ir.=t  opfiK  > 
iua  = »iwur(  IG  I 
IUA=  lUB/inn 

li'p=  lUA+Moni  lUB  ,100-1 
ro  44fl  iwPM=  n.A,  iu« 

IP(  IKSTATI  IkPN)  .1  r .0)  GO  TP  448 
I<;=1  4YFV,(  I WPN  I 
j<;n_,.r.r(  T S/  ion,  I COOO  ) 

|F(  ISP  .FO.O)  GO  TO  448 

T n MpO)  LP'' SYS  I I s“  I / 100,  10)  .EO.  0)  GD  TU  448 
FAI  I NOUIKFI  INFOKM.kwSFG  ,IWPN,  I TGT,  1 SFG) 
in  ISPG.GP.O  .Aun.  IMFPPMI  I SEG66).GT.  0)  GP  to  448 
wy=wx  Y7  ( IWP'J , 2 ) 

WYrVX  Y/  { IWP^',  3 I 

rx=Tv-wx 

OYsTY-WY 

CcpsrxtCXfPY^OY 

PAIP=I  npsvsi  ISP-  1 )/ 10000  0 

I F(  OP  ?.  f T .PA  IP*P  A IP  ) GP  TP  448 

U**  AST  = 0 . 

yw=MPC( LBPSYSI 1581,10) 


AL  I 0 43  00 
ALL043  1 0 
A.LLO4320 
ALL')4330 
ALl  04340 
Al  104350 
41104360 
AL  I U4370 
ALLO43R0 
Al  I 04  300 
ALL04400 
All  O4410 
Al  t 04420 
Al  1 0 4 4 3 0 
Al I O4440 

A|  104450 
Al  1 04  460 
Al  I 044  TO 
Al  104480 
Al  I 044O0 
AL1U4500 
Al  104510 
Al  I 04  5 20 
Al  1 045  30 
AL  I 04 540 
All  04550 
A11O4560 
Al  1.  145  70 
Al  1 345H0 
Al  1 045*’0 
Al  1 04400 
Al  I 046  10 
Al  104620 
Al  1 1463  0 
Al  104640 
Al  I 04650 
Al  I 0 4 6(-0 
Al  I 04  6 7 o 
Al  n 4 6 8 0 
M I 046*10 
A.  . 1 4 701 
A|  I 14  7 10 
Al  I 14  720 
A|  104  7 30 
Al  1 '4  74  0 
Al  1 14  7 50 
A|  I 04  760 
»l  ' 14  770 
Al  1 04  7*’0 
A|  I 04  TOO 

A(  I 14  3(10 
All  04  3 1 0 
Al  I 14  820 
A|  I 04  8 ’O 
A|  I 34840 
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t 
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I 

I 

i 
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1 

t 

» 

I 


I 
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TF(KW.FQ.2)  GO  TO  447 

ALL04850 

LPLTw*Mnn{ iSt 100) 

ALL04860 

HH4ST=WPX1( 3,LPLTW)/FPNM 

ALL04870 

MHAST»HMAST*WXYZ< 1WPN,4) 

ALL048R0 

X»l.  1 54  7*(  TLOS^SOPTIHMAST*  (6880.  + HMAST)  )) 

ALL04890 

IF(GP2.r,T.X*X  » GO  TH  448 

ALL04900 

1=SQRT1GP?) 

ALL  049  10 

HSHIPsMSHIP* 1 

ALL 049 20 

ISHIPIMSHIP )=I*1000000  ♦ISEG*100  ♦tWPN 

ALL04930 

4^8 

CONTINUE 

ALL04940 

4*0 

IF(MSHIP.FQ.O)  GO  TO  425 

ALL04950 

4*1 

MIN=LSHIP( 11 

ALL04960 

IMIN*  1 

ALL04970 

CO  455  I=1,MSH1P 

ALL  049  80 

K=LSHIPn  ) 

AIL049Q0 

IFIK.GE.MINI  GO  TO  455 

ALLOSOOO 

M IN=K 

ALL05010 

IMIN=! 

ALL05020 

4*5 

CONT INUE 

ALL05030 

IF( M IN.FO.NAXX)  GO  TO  425 

ALL05040 

LSHIPI IMIN )=MAXX 

A1  Ln5050 

I=M  IN/IOOOOOO 

ALL05060 

ISEG=MOC|M lN/100,  10000) 

Al  L05070 

IWPN=MnC(M IN,  100 ) 

ALL05080 

IS*LSYSWI IWPN) 

ALL05090 

LPLTW=M0D( ISt 100) 

Al LOSIOO 

ISA=IS/  ICOOCCO 

Al  LOS  110 

ISRsMOPI IS/IOC,  ICOOO) 

ALL05120 

ISS=  I5P-3 

ALL  05 130 

ASSIGN  478  TO  I SWT  30 

Al  L05140 

ASSIGN  475  TO  ISWT38 

ALL05150 

Kw=Hnn( L BP  SYS! I SR )» 10) 

ALL05160 

IFIKW.FO.NAIR)  GO  TO  456 

All  05170 

KSYS=33 

ALL05  180 

ASSIGN  457  TO  ISWTl 

ALL  05  IPO 

ASSIGN  468  TO  ISWT2 

Al  105200 

ASSIGN  472  TO  ISWT3 

Al  L'J52n 

ASSIGN  4R0  TO  1 SWT4 

ALI 05220 

ASSIGN  555  TO  ISWT5 

ALL05730 

GO  TO  4f0 

ALL05240 

4 56 

KSYS=23 

ALL0525n 

GO  TO  4,58 

Al.  1,05260 

4*7 

K SYS=43 

Al  LO5270 

458 

^ SSIGN  45  1 TO  I SWTl 

A.  . 1 52  80 

ASSIGN  466  TO  ISWT2 

Al  L05290 

ASSIGN  474  TO  I SWT3 

ALLP53O0 

ASSIGN  540  TO  ISWT4 

ALI  05310 

ASSIGN  560  TO  ISWT5 

ALL05320 

460 

IS=ISA-1 

Al  1 05330 

4<5 

IS-IS*1 

ALL05340 

IF! IS.GT.I SS)  GO  TO  I SWTl . 1 457.45 1 ) 

ALL05350 

ISYS-LRRSYSI IS) 

ALL05360 

IFIMOni  ISYS. ICO) .NE.KSYS)  GO  TO  465 

Al  L05370 

lAVA  IL«  ISYS/ lOOOCOOOO 

Al  L05380 

GO  TO  ISWT2f 1 466.468) 

ALLn5390 

1 

1 1 
i 


' j 

I i 


f ! 
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A66  !STGCK=Mrin(  ISYS/ lOOOOOO.lCC) 

CP  TO  A70 

A68  JSyS=LPOSYS(  is»n 

iST(iCK=Mtin{  JSYS/  icccooc,  ino) 

A70  1F(  I STdCK*  lAVMl  .PO.O)  GP  TP  A65 
ICPl =Mpr( ISYS/IOOOO, 100) 

GP  Tf  1SWT3, ( A7?,A7A) 

A72  !Pfln=ICni 

irn  =Mrrt.j'iYS/i  ocro»  loo) 

A7A  C'  Ttl  TSWT78,  < A 7 i , A 7?- , A 7 93  ) 

A75  WY=wyYZ(IWPN,2) 

UY=WXYZ ( IWPN , 3 ) 

WZ  =WX YZ ( IWPN , A ) 

ir(  KW  .ro.NA  fp  ) r,n  rn  a78 
ASSIGN  A7fe  TD  1SV.T3I3 
A 76  CrN'TINIIF 

I'''C=  I^I  sr  ( 22) 

CALL  SAML  T(  T IMF  , irtlL  , WX,  WY,WZ  f 0.  tO.  , TX,TY,TZ  ,TVX  ,TVY,TVZ, 
1 INCf TA,TH .TFA ,TFBf 0) 

I r(  lAT  .ro  .0)  G'^  TO  A6  5 
IK  TA.CT.TIMF)  GO  TO  AFS 
r,V  TO  K CHFK,  I A765,  A77  ) 

A7C5  IFITFA^TImf  .GT.  TVFC ) GO  TP  A65 
A77  rp  TP  ISWTaCt  (A7P,A79) 
ry=Tx-wx 
rY=TV-WY 
rz  =TZ-uz 

GP?  = ex*  rx+nY*OY +0  7*0  7 
GP=S0RT(f.o2) 

JTU=  I TTL(  ITIJ  ) 

K TrMPni JTD, 10 ) 

ASSIGN  A70  TO  ISWT3C 

if(kw.'''f.na  IP  ) r.n  TO  a79 

ASSIGN  A793  TP  ISWT3P 
A7e3  IFt GF  .GT.WPNPATI  1,  ICOL  ) ) GO  TD  A65 

IF(  t^'ISri  22)  .FO.C  .ANP.  ARS(OZ/GP  ) .GT.  .5)  GO  TPAAS 
PT INFrkPNOAT ( 6,  ICPL ) 
wv=wPNnAT(  2,  ir.OL ) 

CALI  IfrFPT{TX,TY,TVX,TVY,WX,WY,WV,WVX,WVY,TFA) 

IF( TFA.I  T.O.  ) GO  TO  A65 
GP  TP  5AP 

A7P  GO  TO  ISWTAt  (A9Ct5A9) 

AEO  M“AST=KPXI (3,LPLTk) 

RFTA=WP  ADI  1,  IP  AH) 

Al  FA  = WP  API  ?,  IP  AO  ) 

FPFP  = 3nOnO./WPAO  O.IPAO  ) 

PrA«  = 'WP  API  22,  IP  AO  )7  57.  3 
PF  AM=  .c  + pr am 

rrr{ I )=wz*fpnm+hma ST 
FTCI  A)  = WP API  36,  IPAD) 

KIkt  .FC.MAIR  ) GO  TO  APS 
Kr-’i  =Mrn(  jTU/  10,  iro) 
prs=0ATASM ( iq,KCOL  ) 

ALTGT  = .5*I  PATASMI  l6,Kr,nL  )+l)ATASM(  l7,Kr  OL)  ) 

GP  IP  A SO 


Al  L05A00 
Al  1 OSAIO 
ALLn5A20 
ALL0SA30 
Al  L06AA0 
ALLOSASn 
Al  l f)5A60 
AL  I O5A70 
Al  I OSARO 
ALLORAOO 
ALLOSSOO 
ALL  05 5 10 
ALL05570 
ALLn5530 
ALLOSSAO 
AL  Ln5550 
ALL05560 
«l  I 055  70 
ALLO5530 
Al  I 05500 
ALLO5600 
All P5610 
Al  I 05620 
ALLn5630 
Al  LO56A0 
AL  I 05  65  0 
Al  1.05660 
Al  L 056  7 0 
ALLO56C0 
Al  L"560n 
Al  I 05  700 
iLI,05  7I  0 
Al  I 115770 
ALL05  730 
ALLO57A0 
A|  LO5750 
ALL’l57f.O 
it  1,05  770 
Al  1.06  7 KO 
Al  I 05  700 
A.I.  I 06600 
ALL  ■'59  10 
ALI  05  6 20 
Al  I 115  6 30 
ALL  15-iAO 
Al  I 06  66,1 
AL  L 0 5 6 6 .) 
M I ">5  67  0 
ALLOS’HO 
Al  I 05  ><■'0 
AL  1 06  OOO 
Al  1 '5010 
Al  1 '6020 
M ! I'^OSO 
Al  I '■'S'ZAO 
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I 
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^85 

I PI  TT=MCr( JTU/IOCC, 1001 

ALL05950 

Al TGT=.5*(TPX1(  1,1 PLTT) ♦TPXl (2,1 PLTTIl 

AL105960 

Rrs=TP  X 1(4, (pltt ) 

ALLn5970 

ASC 

cn  TO  IJSPT, ( 495,501) 

A1.L059P0 

t>^5 

ASSIGN  501  TO  LJSfT 

A(  LOSQQO 

KSYSAV=KSYS 

ALL06000 

ITYPF=5 

ALL060  10 

J AM  = 0 

AL  L 06  0 20 

CO  500  IT=1,NTU 

Al  1 06030 

MS=LSYST(  IT)/100 

Al  006040 

IF(MS.FO.O)  GO  TO  500 

ALL06050 

( A=MC/ICOOO 

ALLn6060 

IP=Mrr!(  MS,  ICCCO) 

Al 106070 

yASK=LBRSYS(  IB)/10 

AL  LO6nP0 

IF(MnD(Ma<;K/1000,lC)  .F(J.  O)  GO  TO  500 

AL  L 06  0O0 

IP=IP-l 

ALLP5100 

CO  50CC  MS=IA,IB 

AL  L061 10 

KSYS=L  PRSYS(M  S( 

Al  t.  06120 

IF(MnD(KSYS,  10)  .F'E.  ITYPE)  GO  TO  5000 

ALLO6130 

IF(KSYS/1000CCOOrC4-JAMnN.EO.O)  GO  TO  5000 

Al  I P6  140 

IJAM=MriO(KSYS/  lOCC 0,100) 

ALLn6150 

JAM=JAM4l 

Al  1,06  160 

JwnPK.  ( J AM  ) = IT*  10  0+ (JAM 

All  06  170 

5CC0 

CONTINUE 

Al  1.06  180 

;co 

FONT INUE 

ALL06160 

KSYS='<SYSA  V 

Al LP6200 

IF(JAM.CT.O)  ASSIGN  503  TO  KJSET 

ALL06  2 10 

•iCl 

GO  Tf’  R J<;fT,  ( 503,520) 

ALL  06  2 20 

5C3 

J AMP  =0 

Al  1 062  3 0 

or  51 C JM=1, JAM 

Al  LP6240 

IJ=JKOFK( JM) 

Al  1 06260 

IT=IJ/irO 

ALL06260 

ij=M(in(  ij,  100) 

Al  1 06270 

rn  505  K= 1, 2 

Al  L062R0 

IF(  FPEO  .1  T .A  JAM{  5,  K,  IJ  ) ) GO  TO  505 

ALL062O') 

1 F(  FP  FO  .GT  .A  JAM(  6,K,  IJ)  ) GO  TO  505 

ALLP6200 

KJ=K 

Al  L062  10 

GP  TP  506 

Al  1 116320 

5C5 

CPNTINDF 

ALLO6330 

GP  TP  510 

Al  1.06  340 

5C6 

yJ=TXYZ( it, 2) 

ALL  16  3 50 

YJ=TXY2( IT,?) 

Al  1,06  3 60 

CXJ  = XJ-V.X 

Al  1 06  3 70 

i:yj=yj-wy 

Al  L063P0 

c 

A|  L 06  390 

c 

A|  106400 

c 

ALL06410 

ANrj=ATAM2(rXJ,nYJ ) 

Al  1 064  2 0 

srjp  = scPT(  oixj*nxj4nYj*PYj » 

ALLO6430 

JAMP=JAMP41 

AL 106440 

IWPRKI J AMR ) *KJ*1C0*IJ 

AL  L06450 

WORK  1 ( JAMR )*ANGJ 

ALLP6460 

wrRKJ(JAMR)=SOJR 

Al  1 06470 

5 10 

OPNT INUF 

Al  LO64R0 

IF( JAMR  .FO .0  ) GO  TO  520 

Al  LO6490 

: i 


i <! 


I 1 
i i 
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A^CT  = 4TAN  2(C)X,r»Y) 
nr  SIS  IJ=1,JA>'« 

A=APS( /'^CT-W^R‘<  n IJJ  ) 

IFJA.GT.PI)  A=TwnP!-A 
IF( A.GT  .PEAM  ) GO  TO  515 
I.l  AM=  (WORK  ( t J I 
FTC(  2>  = V.PPKJ(  IJ  ) 

GP  TP  525 
5 15  rPNT I NUE 

520  RroMGF=PrTA*RCS**. ?5 
FTC(  2 »=0. 

RTGl 3 1=0. 

!J«M=  I 
KJAP=1 
CP  TP  530 
525  KJ\«=IJflM/iro 

I JA«  = M('n(  IJAM  , I OC  ) 

ETC( 3 )=  2. 

rj?=  “IP.KJAM,  IJAM)  ) 

PJ2  = AJAM(  l,K JAM,  IJAM) 

RrPNr.e  = AL  FA«(  son  ./P  J2*  ( l.26/r.  J2)  25) 

530  IFIPDONGE .LT.GR  > GO  TO  IR F A I L , ( 465 , 62 0) 

IP(  IPRAG.GF.C  I GP  TP  532 

PPT  = FXP (- . 6R3*GR  2/( RPRNGF^P  ORNGF ) ) 

GO  TO  5A5 

532  V)'  = TVX 

VY=TVy 

CPR  A = VY’i'nx+VYOPY 

vr=0 . 

IF(GP  .GT.n. I VC=PGRA/GR 

TAR  { I ) = AL  TGT 

TAP  ( 2 )=PCS 

TAR( 3)=T7#FPNM 

TAo(  ^,)=rVr 

RANGE! I )=GR 

GA.Il  RAnAR(WRAO(l,IRAn»,FNV,ETC,TAR,AJAM{l,KJAM,IjAM|,TRAO,RA»/GF, 

1 PETFCT, ANG.nvN, If K , I SC  AN , ! PR  AO) 

prT  = PPTFGT ( (Sr AN+l  ) 

5A5  irCPPE.I  T.PPTMIN)  GO  TP  ) RE  A I L , ( 465 , 62 0) 

GP  TP  IPPASS,  I 6 14,546) 

'46  IFlf'LPR  .GT.O)  WR  1 T F ( N 6 , SA  M ) 
r 

r.  SAP  I AIJPCHFO 

r. 

rn  TO  550 

54R  I F(  ML  PP  .r.T  .0  ) WP  !TF(N6,AA  vnFF  ) 

c 

C EFFFA'SIVF  AAM  LAUA'CFED 
r 

GP  TP  551 
546  CPNTINUF 

rr(r:l  PP  .GT  .0  ) wp  I TF  ( N6,  SAGUN) 

C 

C SA  r.)IA'  ASS  IGA:  EO 
C 


AL  L T6S00 
ALL  06510 
AL  Ln65?0 
Al  L 36  5 30 
ALL  06  540 
Al  L06550 
ALI  06560 
Al  I 065  70 
ALLn6580 
Al  I 06560 
Al  106600 
11  L066  10 
A|  L06620 
Al  LP6630 
Al  I 06  640 
ALL06650 
ALI 06660 
Al  1.066  70 
A|  106680 
Al  1.06660 
At  I 06700 
M Ln67n 

ALin6720 
Al  LO6730 
AIL  06 7 40 
A|  L 06  35  0 
Al  1.06  760 
A|  I 067T3 
A|  Ln6780 
Al  Ln6760 
Al  I 06  8 00 
ALL  06  8 1 0 
ALI  06  82  0 
AL  Ln6830 
ALL  '^6840 
Al,  L 06  8 50 
ALL  06 8 63 
Al  I MG  870 
Al  I -^6  880 
Al  I 0^800 
'(  I 06  ICO 
M L ■'68  10 
Al  I 06620 
A|  1 06')  30 
M I '■>?  P4  3 
A(  I 06650 
AL  I 0 60  60 

M I 0607'8 

A I L 36  0'’'1 
AL  L"’63')0 
AL  L07000 
Al  I.  P70  1 3 
Al  I 0 7 020 
Al  I 0 7 030 
ALI  0704,3 


N-  130 


o n 


550  RTIMF  = SAHDAT( fc,  ICOL ) 

551  IF(PT  IME.L  T.TFA  » PTrME»TF4 

rF(  ISFG.FO.O)  CALL  ADO SFG ( I NF ORM ,KWSEG t KTSFG, I HPN , I TGT , ISFG » 
IF(  ISFG.FO.O)  GO  TO  451 
JTIM  E = ( T7  FRP ♦RT IMF  >*  1000. 

IMFPRMf  rSFG>6  »*l S* ICOOCC+JTIME 
KTIME  = ( T7ER0  + TF A »*1000. 

INFORM ( lSFG+7  »*IT1MF*1C0000+K  IIMF 
INFORM!  ISFC+1  )=GR*  lO.-*-.  5 
K=10C0000 

IF<  ISTPCK  .F0.09)  K=0 
GC  TO  I SWT5, I 555,560) 

555  LPPSYSI  IS ) =I SYS- lOOCOOOOO 
LPRSYSI  IS-H)=JSYS-K 
GO  TO  570 

560  LPRSYSI  IS)=ISYS- lOOCOOOOO-K 
570  ITSTATI  ITGT)=  ITSTATI ITGT)*1 
GO  TO  425 
600  CONTINUE 

SAM  TRACK  RADAR  RFCHECK  AT  TSTEP  BEFORE  INTERCEPT 

IF(  IGFEK.LT.  10)  GO  TO  7CC 
IFINTTU.EO.O)  GO  TO  700 
NFXT=( TZFRO+TSTFP)*1000. 

ASSIGN  620  TO  IRFAIL 
ASSIGN  61s  TO  IRPASS 
1TU  = 0 

610  ITU=ITU*1 

IF!  ITU  .GT.NTTD)  GO  TO  7C0 
IF!  INVTTU(ITU).EO.  0)  GC  TO  610 
ITGT=  ITU*N  TU 

IFt I TSTATI ITGT) .LE.2)  GO  TO  610 
ISEO=KTSFG( ITGT  )/IPK 
612  IF(  I SFG  .EO  .0  ) GO  TO  610 
iwnpr=iNFnRM( iseg+7) 

IF( IWORC.FO.O)  GO  TO  614 
ITDI =M0  ri  I WORD,  100000) 

IFI  ITDI  .GT.NEXT)  GO  TO  614 
IFI  ITOI  .LT.ITIMF  ) GO  TO  614 
L IN E=  INFORM!  I SFG + 6 )/ 1 COO CO 
tSYS  = LPRSYS(L  INF  ) 

KSYS=MOD(  ISYS,  100) 

IFIK SYS.E0.33  ) GO  TO  616 
614  ISEG  = MOC(  INFORM!  1SEG>2),IPK) 

GO  TO  612 

616  TX  = TUTXYZ1  1,1TU) 

TY=TUTXYZ! 2, ITU) 

TZ  = TUTX YZ( 3,  ITU  ) 

TVX=TUTXYZ!4,1TU) 

TVY=TUTXYZ!5,ITU) 

T10S*S0RT! TZ*!68  80.*TZ)  ) 

JTUa ITTL! ITU) 

KT»MOD! JTUflO) 

IWPN»  INFORM!  ISFG  )/IPK 


ALL07050 
ALL07060 
ALLOTOTO 
Al  L07080 
ALL07090 
ALL07100 
ALL07110 
ALL07120 
ALL07130 
ALL07140 
ALL07150 
ALLn7160 
Al L07  170 
ALLOT  180 
ALL07190 
ALL07200 
A(  107210 
ALLn7220 
ALL07230 
ALLn7240 
A!  L07250 
ALL07260 
Al  L ■'7270 
ALL072P0 
A!  LO7290 
ALLOT  300 
Al  L07310 
ALL07320 
ALL07330 
Al  I 07  340 
ALn7350 
Ain  7360 
Alt  07  370 
ALl  07380 
ALLO73<R0 
ALL07400 
ALLn74lO 
Al  L07420 
Al  Ln7430 
All  07440 
ei  Lri7450 
Al  107460 
Al  I 0 74  70 
Al  107480 
AIL074R0 
Al  L07500 
Al  107510 
Al  I 07520 
ALLO7530 
ALL  0 7540 
Al  Ln75‘i0 
ALL07560 
A1107570 
Al 107580 
AL107590 


i 


*iV,<iTA  Tr  I WSTA  T (I  WP^I 
If  ('jw<;TAT.LF  .01  Of'  TH  6?  C 
W)lrV.XY  / ( I -^PV,  2) 
uv  = k,*  v;  1 1 v^pK',  0) 

W2  = «.XV2  ( lwp\', 

IS=I  SVSV>(  1 
IPL  tw=mp:)(  15,  no) 
t-MA  ST  =KPV  I ( i,LPL  TV-) /f  PN«»W/ 
ry  r I x-V  X 

PV  r T V -y  y ‘ 

r/  = 

TP  2=f'x*  rx  ♦cy*oy  ♦o2*">7 
ri'  = sot«T  ( r.p  2 ) 

X = ! . 1 7*(  Tl  nSYSQP  TlfWAST*  ( 6PP0.  f-HM/vST)  ) I 

If!  r.p  .r.T.  X ) cn  TO  62 c 

iPAPiMPni I svs/ioono, 100) 
or  TP  <.00 

r 

r S-VX  M'ST  AT  PET  MFC  K 

C 

(io  ifiFppMi  rsrcY7)  = o 

IFINLPP  .OT.C)  WP  ITF(N6,  SA«1L  ST) 

Cr  TH  l<, 

7C0  CPTJTI'tur 
R F Tl IP  N 
fXT 


Al  I 0 7600 
At  I 0 7610 
ALLP7620 
ALI  076  30 
Al  L07660 
At  I.  07660 
Al  I 0 766  0 
At  LO7670 
Al  I 0 /6')0 
At  Lt76P0 
AL  I 07  700 
Al  I 07  7 10 
Al  1 07720 
Al  L07  730 
ALLn7760 
At  1 07  7 60 
Al  I 07760 
Al  I 17770 
Al  1.07  7H0 
Al  I 0 7 700 
Al  Ln7800 
ALL078  10 
ALL  07  3 20 
Al  1.07  3 30 
ALI  07860 
ALL07d60 


pijOuoiiTlMP  SAMLT(Tl,KLiXlfVLt7LtHA,HP,XT,YT,ZT,UfVtWfINX, 

I TA  , TH  , TF  A , TF8  , I P«I  NT  ) 

r pr,«  = f xyINFm  ) . L.n.G.  VFR.3  10-6-73  FORTRAN  IV  FPro 

^ « irs.im,  16C,  150,  I72f  106,  195,21  6.  VEP.T  1-26-75 

r Ti'  FINP  FAPI  lEST  ANO  LATEST  SAM  LAUNCH  TIMFS  PFRMITTFC. 
r T 1 = ruuw  FMT  T IMP  , HR  S 

r y|  = 1 AIIA'CHFO  typf  IN'OFx,  l.LF.KL.LF.N 

r XI, VI, 71  = fAST,NrDTH,C  vertical  coord.  CF  LAUNCMFP,  MV 

r yT,YT,/T  = rrioRO.  OF  target,  nm 
r I , V,  V.  = vF|oriTY  crvpcNfNTS  of  target,  knots 

r IVX  I r,  K,r  f|RF  C'^NTROL  SOLUTION,  TA  = TP  = Tl 

C TA  = fARLIFST  PFPVISSIPLF  launch  TIML.GE.TI 

r TM  = I ATFST  PFPmissiplf  LAUNCH  TIMF.GF.TA 

r ipppTz  n,  \n  poixT.  =i,  print. 

c PA,t'n  T (M'l  AMD  MAX  AZIMUTH  IIMITS  (0,PI2) 

r*** 

rSAML  T 8,1  2,  16, 

roy/tiN/r  SA“l  t/l  , V,  N,  R«NI  15)  ,RMXI15)  ,fMMi5(  ,FMX(16|,7my(1«;), 

1 XMx  I i<  ),  P T I 8,12  ,1  6) 

f **♦ 

c L,'',f  - I'lMFNSirN'X  or  PT.  THFSI  ARE  Sf  T fx  H I Of  k DATA. 

C Kl  TYPIKI 1=  THF  CATALIG  F OOE  QF  L AUNCHf P TYPP  XL. 

C PM-i(Y|  ),rMx(K|.l  = MIA  f.  “Ax  PANGrS,N“,  'F  5«m  Type 

r F*''i(  X L ) ,f ‘f  x(  K(.  ) = MfA.  F.  “AX  FLfV  AV.I  f S 

C 7“X I K L ) , XMX I kL  ) = max  vertical  C HCPIZPNTAI  SECTOR  IIMITS 

r PT|I,J,KI)  X riMF  OF  Ft  IGHT  CONT'^UPSErP  LA'IN'-HfR  XL. 


S A'M  oo  10 
SAMI  00  20 
SAMLOO JO 
SAMI  noAo 
S A«L  00  = 0 
SAMLOTfO 
S A MLnn  70 
SAMI  008  0 
SAMLOT^'O 
S AM|^  0 1 m 
S AMI  Olio 
SAMioi.'-) 
SAMI  T I -I't 

S AM|  11  A'a 
< AMLO 1 60 

S ' M(  r)  I ( 7 
S XM|  0 1 /T 

S A'H  T 1 o T 
S A M L O 1 ''  J 

S A VL,T  10  J 
SAML  02  10 
p A M(  T » •)  0 

S * ml  02  '0 
S A-'i  0260 
S AML0260 
SAMI  0260 


\ 


N-  I 3? 


1 


il 

t . 

11 


I 


1 


c**« 

SAML0270 

C**STflTFMFNT  FUNCTIONS 

SAML02R0 

SSOF<X,Y,ZI  = X**2  ♦ Y**2  ♦ 1**2 

SAML0290 

FFF  (X,Y,2)  = ATAN2(ZtS0RT(X**2  ♦ Y**2)  » 

SAML0300 

FFF  (X,Y  ) = ATAN2(X,  YI 

SAML0310 

TATA  PI2,RAn/6.2831Q.57.29578/ 

S AML0320 

NAHFLI ST/NAM A/KLLtTINFt XI «Yl«ZltUUtVVtWW*Rl tHl t El t TAUZ t DZ 

SAML0330 

NAMELIST/NAMB/T AUZ,DZ,XZ,YZ,ZZ,RZ,HZtEZfDFSCB 

SAML03A0 

NAMFL  IST/NAMC/DESCB ,TAUR81 , TAURB2 

SAMLD3S0 

NAMfL  IST/NAMn/TAU2tXP,Y2,Z2,R2,H2,E2tINR2,INF2 ,TF2 

S AML0360 

NAM EL  1 ST/NAME/TAU3, X3,Y3fZ3fR3,H3,E3f  1 NR3»INE3»TF3 

S AML0370 

NAMFLI ST/NAMFZTlMFtTAA  ,TBB  ,INXX 

SAML03e0 

c*** 

S AML0390 

K0PT=I NX 

SAML0400 

N6  = 6 

SAML9<H0 

1 

INX  = 0 

SAML0<V20 

KPR  INT  = 1 

same  0430 

TIMF  = T1 

SAME  0440 

LIU  = U 

same  0 4 50 

VV  = V 

SAML04ft0 

ww  = w 

RAML0470 

KLl  = Kl 

same  0480 

PASO  = PMN(KL  )**2 

SAME  0490 

PPSO  = PMX(KL 1**2 

SAML0500 

FA  = rMN( KL  » / RAD 

S AML0510 

FB  = FMX(KL»  / RAD 

S AML0520 

ZA  = .0 

SAML0530 

ZB  = ZMX<KL>  / 6.CB0 

SAML0540 

XBSC=  XMX(KL)**2 

SAML0550 

XI  t XT  - XL 

same  0560 

Y 1 = Y T - YL 

S AME0570 

71  = 7T  - ZL 

SAML0580 

PISO  = SSOFl XI, Yl.ZI) 

SAME0590 

PI  = SORT(RISO) 

SAME0600 

FI  = FFF  (Xl.Yl.Zl) 

SAME  0610 

El  = HFF  (XI, YU 

S AME0620 

IP  ( HI  .1  T..0)  Hl=Hl  ♦ PI  2 

same  0630 

UVSC  = 11**  ? ♦ V**2 

SAME  0640 

TAUZ  = -(U*Xl  ♦ V*Yl)  / UVSO 

SAML0650 

nz  = -1. 

SAME0660 

C** 

TS  TARCFT  PFCFDING 

S AML0670 

IF  (TAUZ.rF..O)  r,n  TO  1C 

same  06  8 0 

c** 

NP  INTFPCFPT.  PRINT  OPTION 

same  0690 

R 

INX  = 0 

SAME  0700 

TA  = T1 

SAM)  07  10 

T8  = T1 

SAME0720 

IF  ( IPRINT.IF.O)  RFTUPN 

SAME  0 7 30 

ro  TP  (6S,6A,63)  , KPPINT 

SAML0740 

C** 

IS  TAOCET  TRACK  POMPLFTFLY  OUTSIDE  SECTOR 

sameozso 

C** 

lOPK  AT  CROSSING  POINT 

same  0760 

10 

CZ  » APS(U*V1  - V*X1)  Z SORT(UVSO) 

S AME0770 

rzso  » oz  * DZ 

SAME0780 

IF  (DZSO.GF.PBSOI  GO  TO  8 

SAME0790 

OESCfl  » 7777. 

SAME0800 

XZ  « *1  ♦ L*TAUZ 

SAMEOBIO 

!r  (4P<;(  *7  ) .LF.  .0001)  xzx.nool 
y?  r VI  ♦ V0TCU7 
7/  = ;i  k'«rTau7 

F/'lO  = SSOF(  X7,Y/,7Z) 

F7  = FFF  ( X7 ,Y7  ,7Z ) 
t-7  = nrp  tX7,v;) 

IF  ( H7  .1  T..0)  H7=H7  ♦ 012 

07  = ?;0t(T(R7S0) 

KPr  I NT  = 2 

IF  {R7SC.CF.RTS0)  GO  m 8 
lOf'K  AT  PUTFR  SHFLI  INTCRSFCTIONS 
A = UVFO  -F 

P = 2.*(l'»Xl  ♦ V*Y1  F W*71) 

fP  = PISO  - KHSO 
CESCP  = 0**2  - A.*A*CO 

IF  ( orsCP.LF..O)  r.n  in  8 
TflPfFT  GOFS  TMPU  OUfFR  SMFLL.  "^INn  TIMfS. 

PFSr  = SORT! OF  SCP  I 

TAurni  = i-H  - otsri  / (?.*a) 

TAU0P2  = (-P  ♦ OFSC)  / (2.*A) 

IS  T ARC  FT  IN  nUTFP  SHELL  LONG,  FNUF 
IF((TAl)pn2  - TAUF  PI  ) .GF  ..OOOT)  GO  TO  IT 

YPPINT  = 3 

GO  TO  F 

PPEPAW  FOR  A7IMUTH  TESTS 
I A A = FA 
F'-P  = FP 

IF  (HAA.LT..O)  HAA  = HAA  * PI2 
IF  (HPP.LT..C)  F-PP  = HPP  F PI2 

HOFF  = .0 

IF  (faa.lf.fbp)  go  to  IJl 

Ff'FF  = P I 2 - HAA 

FAA  = ,n 

F-Pp  = FRP  ♦ FFIFF 

I T-  F TH  = I 

FKH  = F'PO  - HA  A 

IF  ( irMH.rT.iPip-.rDi.nR.  ( APSir)HH).iT..oi) ) iTFSTH=n 
IF  P7  IN  SEGTOO 
TH7  = C . 

IF  ( ITFSTF.FO.O  ) GO  TP  lAl 
H70  = AME n F7  ♦ HOFF,  P I 2) 

IF  ( H7  »'.L  T .HAA  .PP  .H/M  .G,  T.HPR  I GO  TO  15 

IF  ( ( F 7 .G,F  .F  A.  ANr.F7.LF  .FP)  . ANO  . (ZZ  .LF  . ZB  ) . ANP. 

I ( ( XZ**2  + VZ**2).l  F.XRSO.AND. 

? (FZSO.GE.RASG.AMP.PZSO.LE.PBSO)  ) INZ=1 

IF  n U.SIOF  OUTFE  SHELL.  CMCOSF  PS21. 

TAUF21  = .0 

IF  (TAUPP1.LF..0)  GO  TO  16 

TAnS2I=  TAt'RRI 

yS71  = XI  ♦ H*TAIIS?1 

VS21  = VI  ♦ V*TAIJS21 

7S21  = Z1  ♦ W*TAIIS?1 

IF  ( 7S21  .L  T . .0  ) GP  TG  l?l 

PS21  = SSGFI XS21,YS2lf ZS21) 

rF21  T fff  (XS21,vS21,ZS21) 


S AHL  0R20 
S AML  0P?0 
S A ML  0 RAO 
SAMI PRSO 
F A**!  0060 
F Aml  0870 
S AML  0880 
FAMI  OROO 
S A ml  000  0 
s Avn<7  in 
SAMLOQ20 
S AMLOnoo 
S AML  OOAO 
S AML  0060 
F Aml  0060 
SAMLOO70 

F AM)  oopo 

F AML  0000 
SA-L 1000 
FAML 1010 

F aml 1020 
SAMLiniO 
SAml  lOAO 
FAML  lOSO 
S aml  1 060 
S aml 1 070 
S AM|  I 080 
S AML  1 000 

FAM|  I 100 

faml  1 1 n 
FA“L 1 120 
S aml 1 1 30 
F AM)  1 1 AO 
SAMI  1 I 60 
SA  ML  I 16  0 
T aml  1 1 70 
faml 1 lo  1 
F AML  1 1 <'0 
F AM|  1 2 00 
T A”!  1210 
F AM|  122  0 

SA  ML  12^0 
SAM|  I 2A0 

F aml  1 2*^  ■» 
S AM|  1260 
F aml  1 T 70 
SAM|  12F  1 
F AML  1 2''0 

F A •'(  1 300 

FA  Ml  13  10 
F AMI  132  0 
FA'O  1 <30 
S A'M  I iA  3 
F AMI  126  3 
S ‘’'I  1 »(  0 


N-  1 3A 


HS21  - HFF  (XS21tYS21  1 

SAML1370 

IF  (F521.lt. .01  HS21*HS21  ♦ PI2 

S AML  1380 

c*** 

IS  PS21  IN  SECTOR 

SAML1390 

INS21  = 0 

SAMLIAOO 

IF  I ITESTF.EQ.O)  go  to  17 

SAMLIAIO 

HS21M  * &M0C(HS21  ♦ HOFF,  PI2I 

SAML 1A20 

IF  (HS21M.LT.HAA.0R.HS21H.GT.H6BI  GO 

TO  18 

SAML1A30 

17 

IF  ( (ES2l.GE.EA.ANn.FS2l.LE.FBI . AND. ( ZS21 . LE. 7B I . AKD. 

SAML lAAO 

1 ( ( XS21**2fYS21**2).LF.XBSQ).AND. 

SAML1A50 

2 (PS21  .GE.RAS0.ANn,RS2l  .LE.RBSO)  ) 

INS21X1 

SAM11A60 

SEARCH  FOR  TIHE  ENTER  SECTOR 

SAML 1A70 

18 

IF  ( IN521.F0.1  I GO  TO  20 

SAML140O 

TAUS22=  TAUZ 

SAML1A90 

PTAU  = TAUS22  - TAUS21 

SAML 1500 

IF  ( CTAU.LT..0002)  GO  TO  121 

SAML1510 

DT  = AMAXl (OTAU/10.,. 00005) 

SAML1520 

TAUS22=  TAL'S22  - OT 

SAML1530 

TAU  = TAL'S21 

5 AML  1540 

KSl  » 1 

SAML 1550 

20 

TAll  = TAU  ♦ DT 

SAML 1560 

X = XI  ♦ U*TAU 

SAML1570 

Y = Yl  ♦ V*TAU 

SAML 1580 

Z = Zl  ♦ W*TAU 

SAML 1590 

IF  ( Z .LT..O.OR.Z.GT.ZB)  GO  TO  22 

SAML1600 

IF  ( (X**2FY**2I .GT.XflSOI  GO  TO  22 

SAML 1610 

PSO  = SSOF(X,Y,Z) 

SAML 1620 

F = EFF  (X,Y,Z) 

SAML  1630 

C*** 

TEST  POINT 

SAML1640 

IF  ( ITESTF.EQ.O  ) GO  TO  21 

SAML 1650 

H X FFF(X,YI 

SAML 1660 

IF  ( F.LT..O)  H=H  ♦ PI2 

SAML 1670 

HM  X AMOO( F ♦ HOFF,  PI  21 

SAMI  16B0 

IF  (HM.LT.HAA.OP.HM.GT.HBB)  GO  TO  22 

SAML 1690 

21 

IF  ( ( E.GF.FA.AND.E.LE.EB)  .AND.IRSQ.GE. 

RASO) ) GO  TC  2A 

SAML 1700 

22 

IF  ( TAU.LT,TAUS22I  GO  TO  20 

SAML  1 no 

IF  (KS  1.GF.2  ) GO  TO  26 

SAML 1 720 

IF  ( INZ.EO.O)  GO  TO  121 

SAML 1730 

IF  (PT.LT.. 000051  GO  TO  121 

SAML 1 740 

TAUS22X  .TAUS22  ♦ DT 

SAML 1750 

DT  = O.l  * DT 

SAML  1760 

TAUS22=  TAUS22  - DT 

SAMH770 

GO  TO  20 

SAML 1780 

C*** 

POUF'CrC.  DROP  STFP  S I ZF  . FIND  ENTER  SECTOR 

SAML 1 790 

2A 

IF  (KSl.GE.2)  GO  TO  26 

SAML 1 800 

TAU522=  TAU 

SAMI  IBIO 

TAU  * TAU  - DT 

SAML 1820 

PT  X 0.1  * DT 

SAML  1830 

TAU522X  TAUS22  - DT 

SAML 1 940 

KSl  » 2 

SAML 1850 

GO  TO  20 

SAML 1 860 

C*** 

FFRF  IS  THE  TIME  THE  TARGET  ENTERS  THE 

SECTOR 

SAML1870 

26 

TAU2  * TAU 

SAML 1880 

GO  TO  AO 

SAML 1890 

28 

TAU2  X TAUS21 

F AML  1900 

c*** 

search  for  time  LEAVE  SECTOR 

SAML 1910 

N-  135 


I 


IP  ( !►'  Z.FO  . 1 1 r.f'  in  5C 

SAML 1920 

TMI'^l  = TAL? 

SAMI  lo?0 

T4lir>‘<?  = T&L/ 

SAMI  19A0 

TTAI  = TAIJS'?’  - TAUS31 

SAM|  losn 

ir  ( HTAU.LF.  .HOC?)  or  TO  121 

SAML  I960 

PT  = A«A)f  1 (DTAt'/ If).  C0TP5I 

S AML  1 970 

TAt,'S3?=  TAi,'S32  - nr 

SAMI  I9fl0 

TAD  = TAL'Sil 

SAML 1990 

K*;?  = 1 

SAML 2 000 

t^2 

TAD  = TAD  ♦ HT 

SAML  20  I 0 

X = XI  ♦ Ut'TAU 

SAML2020 

Y = Yl  ♦ VOTAD 

S AML2030 

f = Zl  ♦ W*TAD 

S AML  20A0 

IF  ( / .1  T . .0  .nu  . Z.PT.  ZB)  PP  TP  ^*6 

S AMI 20S0 

"SC  = SSCFI X,Y, Z) 

SAML2060 

F = FFF  (X,Y,Z) 

SAM|  2070 

€*♦ 

TPST  Pf  IDT 

S AML20R0 

IF  ( ITFSTD.FO.O)  GP  TO  A3 

SAML  2090 

= FFF  ( X,  V ) 

SAM]  2100 

IF  < F .1  T . .0  ) H = H F PI  2 

SAM|  21  n 

H“  = AMP()(  F ♦ HPFF  , PI  2) 

SAML 2 120 

IF  ( HF  .L  T.  FA  A .np  .dm  .r-T  .HBB  ) GO  TO  A6 

SAM|  2130 

IF  (It  .(.F.  r A.ANP.F  .L  F .FB  I.ANO.  (RSU.GF.PASO)  ) 

GF) 

TP  AA 

S A ml  2 1 AO 

ro  TO  AF. 

SAMI  2150 

IF  ( TAU.I  T.TaDS32  ) GO  to  A2 

S AML2160 

IF  (KS2.GF .2 ) GP  TP  AB 

S AM|  2)70 

IF  ( OT  .L  T . .OOOOS)  GP  TO  5C 

S AM(  2 IPO 

TAnSi2=  TAL'S32  ♦ OT 

SAMI  2190 

FT  =0.1*01 

SAM|  2200 

TADS32=  ta('S32  - OT 

SAM|  2210 

GO  TO  <i2 

'AML  2 220 

C 

PODMIFF.  OPOP  STFP  SIZF.  FIND  LFAVF  SECTOR. 

S AML  2 2 30 

»F  (KS2.Gr. 2)  GO  TP  A8 

S A-'l  2 "AO 

TADSi2=  TAi; 

S A'M  2 250 

TAU  = TAU  - OT 

s AMI  2 2 60 

OT  = n.l  * OT 

S A ml  2 2 70 

TADS32=  TAIJS32  - OT 

SAML  22‘’0 

FS2  = 2 

SAML 2 290 

or'  TO  A2 

S .AM(  2 )00 

FFPF  IS  THF  TIFF  TWO  TARGET  LEAVES  THF  SFCTr’P, 

PR 

RFACF'FS  THF 

SAM|  2310 

r. 

cpossu^  ppiF'T,  OP  the  launcher. 

' A ml 2 320 

Afl 

TAD?  = TAU 

S ' Ml  2 1 1,0 

CO  TO  *A 

S AM|  2 A AO 

5C 

TAD  i = TAD^ 

S AM|  2 A' 0 

r ♦♦  « 

CFT  t.mf  of  flight  AT  POINT  P2  . 

S AMI  2 A r;0 

5A 

X2  = XI  ♦ L*TAU2 

SAML  2 3 2 0 

Y2  = VI  f V*TALlZ 

S AM|  2 2'  3 

72  = 71  ♦ W*TAU2 

S AMI  2 4 9 ) 

P2  = S0PT(  SSOF(  y2,'fZ,7?)  ) 

SA  ‘H  2A0,1 

r?  = fff  ( X2,Y?,Z2)  * RAP 

S .A*n  2A  10 

r ALl  Cr'N  IMT(5T,L,M,EJ,KL,32.02fTF2,I  NR2  . INO?  ) 

5AM|  2 A 20 

TF?  = Tf  2 / ?(SOC. 

S ‘M(  2 ».  < 0 

TOA  = TF2 

S A‘'|  2A'.0 

TA  = A«AV  l(  T 1 + TAD2-TF  2.  Tl) 

S A'D  2 <*S0 

r,**  * 

GET  TI^F  OF  flight  AT  POINT  P3  . 

S ami  2<.M 

N-  I 


non 


i 


X3  = XI  ♦ U*TAU3 

Y3  = Yl  ♦ V*TAU3 

/3  = Z1  ♦ W*TAU3 

03  » ?0RT(  SSQF(X3,Y3,Z3I  I 

E3  = EFf  C X3,Y2,Z3»  * RAO 

CALL  C0N1NT(RT,1  ,M  ,N  tKL  ,R  3 ,E  3 1 TF  3 f I NR3  1 1 NF3  I 
TF3  * TF3  / 3600. 

TFB  = TF3 

TB  * AMAXl(Tl+TAU3-TF3,  T1 , TA> 

IF  ( TA  .LT.TB  » IMX:»l 

♦♦  INTEPPOLATF  INTERCEPT  FLIGHT  TIMEITFAI  WHEN  TA  = CURRENT  TIMEITII 

IF! INX.FO.C)  GO  TO  59 
IF( TAU2.GE.TFA » GO  TO  59 
IF(KOPT.NE.O)  GO  TO  59 
L00P=0 

56  TCFPT=( TAU2+TAU3J*. 5 
X2=X l+U*TCEPT 
Y2=Y1+V*TCFPT 

Z2=Z  UW*TCEPT 
P2=S0PT(S90F(X2,Y2fZ2n 
F2=EFF{ X2»Y2.Z2>^RAD 

CALL  CnNINT(RT,LtM,N,KL ,R2 , E2 t TF A, I NR2 , INF2 » 

TFA=TFA/3600. 

DELT*TFA-TCEPT 

IF(ARS(0ELT).LE.  .0002)  GO  TO  59 
LOnP^LOOP+’l 

IF(LOOP.GE.IO)  GO  TO  59 
1F(  PELT)  57,59,58 

57  TAU3=TCEPT 
GO  TO  56 

58  TAU2=TCFPT 


GO 

TO  56 

59 

CON 

TINUE 

IF 

( IPP  int.le. 

0 

) 

GO  TO 

70 

PR  IN 

T OPTIONS 

60 

T AA 

= TA 

TBR 

= TB, 

INX 

X = INX 

WR  I 

TF(N6,NAMF) 

61 

IF 

( IPR  int.le. 

1 

» 

GO  TO 

65 

H3 

= HFriX3,Y 

3 

) 

• PAD 

IF 

I H3.LT..0) 

H3=H3  * 

360 

WP,  I 

TFIN6,NAMF) 

6? 

F2 

= HFF(X2,Y2 

) 

* RAO 

IF 

IH2.LT..  0) 

H2*H2  ♦ 

360 

WR  I 

TE(N6,NAMDI 

63 

IF 

( IPR  INT.LE. 

2 

) 

GO  TO 

64 

WR  I 

TF( N6,NAMC  1 

64 

IF 

1 IPRINT.LF. 

1 

) 

GO  TO 

65 

HZ  a HZ  ♦ RAD 
FZ  = EZ  ♦ RAO 
WR ITF(N6,NAHBI 

65  IF  ( IPR  INT.LF.O)  GO  TO  70 


SAML2470 
SAML2480 
SAHL2690 
SAML?500 
9AML25lf) 
SAML2520 
SAML2530 
9AML25A0 
SAHL2550 
S AML2560 
SAML2570 
SAML2580 
SAML2590 
9AML2600 
9ANL26I0 
SAML2620 
SAML2630 
9 AML2640 
SAML2650 
SAHL2660 
SAML2670 
SAML2680 
SAML2690 
SAML2700 
S AML2710 
9AML2720 
SAHL2730 
9AML2740 
9AML2750 
9AM|  2760 
9AHL2770 
SAML2780 
SAML2790 
SAML2R00 
SAML  2010 
S AHL2R20 
9AML2830 
S AML2fl<*0 
SAY(  2850 
SAML2R60 
9AML2870 
S AML2HflO 
9 AML  2890 
9 AML  2000 
9 AMI 2O|0 
«;  AML2P20 
SAML29iO 
9AML7O<,0 
S AML2950 
2060 
SAML2970 
9AML2980 
9AML2960 
9AMI  3000 
9 AML3010 
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o o o n n r>  -> 


n = HI  * oAn 
FI  = FI  * RAO 
V.P  I T F(  Ff>,  '■'AM  A ) 
70  FFTURM 
F\'n 


SAML  3020 
A“L  3030 
SA*'L3040 
SAMt  30  SO 
«;a*<L  3060 


S'JPPOUTne  CON  rA;T(RT,L  ,»',N,KN,R,A,Zt  INRt  fNA) 
c pr,H  = A'XX.  L.O.G.  VFR.l  8-11-73  FORTRAN  IV  Fnm 

C TO  IN;TCPPt’LATF  PFTWFFN  CONTOURf:.  3-niM.  STOPAGF  OF  2-WAY  TABIFS. 

C FORFFRFP  TAPLFs.  IST  C()L=  CONTOUR  VALUFS,  Z 
r 1ST  Rnw=  ANGLF  IN  POLAR  COORO.  t A. 

C CORNFR  = 100*N  N,  MATRIX  M X N INCI  BOPOERS. 

C TABLFO  VAl  DCS  = POLAR  LENGTH  TO  CONTOUR,  R T. 

c ASSUMES,  (I)  Contours  ape  single  valued  with  respect  tf  amglf  'a*. 

(?)  RnpOFR  VALUFS  PLST  INCRFASE. 

(2)  IF  nuTSIDF  INTERVAL,  USES  NFAPFST  VALUF 

(4)  IF  P.LT.MIN,  INP=-l.  IF  R.GT.MAX,  INP=+l. 

(5)  IF  A.LT.'^IN,  INA=-l.  IF  A.GT.MAX,  INA=4l. 

RETURNS  Z = INTFRPniATFO  CONTOUR  VALUE  FOP  POINT  (A,R) 


NGTF.  SURpCLITINF  WORKS  FOL'ALLY  WELL  FOR  CONTOURS  DFFINFO  IN 
PFCTANGULAR  X vs  V CnORO.  F.G.  LET  X=A,  y=R. 


C*** 

1 

2 


C*** 


4 


6 

B 


C ♦♦♦ 

10 

12 

14 


DIMENSION  PT(L,M,N) 

INP  = C 
IN  A = C 

IM  = RT( I, l,KN)  ♦ 0.1 
IN  = MODI  I «, 1 OC) 

IM  = IM  / 100 
rONSlOFP  amclf  a 
»MX  = BT( 1, IN.KN) 

AMN  = PT(  I,  2, KN  ) 

IF  (A  - AMX ) 6,4,4 

INA  = I 
P =0. 

0 =1. 

T A = IN  - 1 

CO  T'l  16 

IF  ( AMN  - A I 10,  R,  P 
INA  = -1 
P =1. 

0 =0. 
lA  = ? 
ffl  TO  16 

SFAFFF  FOP  AMFLF  FOIINOS 
FO  12  J=3,  IN 

IF  (PT(  1,  l,KN)  - A)  12,  14,  14 

CT^NT  INDF 

rti  TO  4 

I A = ) - I 

A1  = RT{1,IA,KN) 

r^  ~ PT(  I,  IA»1,KN) 

P r (A-A21  / IA1-A21 


FI  NT 00 n 
F 1NT0O20 
rTNTn030 
F INTO040 
CINTOOEO 
C INT0060 
r I NT  007  0 
r INTOOBO 

r,  intoooo 

FIN  TO  I 00 
FlNTOl  10 
CINT0120 
r INTO  130 
r TNTO140 
r INTO  ISO 

r into  160 
FINTOl 70 
Ff NTO180 
C INTOIRO 
FINTOZOO 
F TNT0210 
F INTO  220 
C INTOJOO 
r I ''TO  74  0 
F!  ‘ITn2S-) 
Cl  NT  0260 
FI 'IT  0 7 70 
r I ''Tozno 
r r'Tozon 

r INTO  300 
r f •'  r 0 3 1 0 
r I NTo^zo 

r I «'T  O ■'  30 
r ^40 

r I 'IT  0 3 so 

r INTO  )60 
F I 'I  T 0 ’ 7 0 
r 1 'IT  0 TOO 
r I 'IT  0 3T10 
r I NTo^n  1 
F I'|T04  10 
r i'iT'3^,20 

r INT0430 
n 'IT 044  0 

n NT04S0 

T I '|T,)4(  0 

r I "TO -.70 
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0 

= 

1.0  - P 

C INT04B0 

c*** 

CONSICFP  RADIUS  P 

GINT0490 

16 

PMN 

P*PTI 2»I A ,KN)  ♦ 

0*RT(2tI A41,KN) 

GINT0500 

IF 

I PMN  - R ) 20, IF, 18 

CINT0510 

IF 

INP 

= 

-1 

CINT0520 

S 

= 1 

• 

C INT0530 

T 

s 

C. 

GINT0540 

IR 

= 

2 

rfNT0550 

GO 

TO 

26 

GINT0560 

2C 

PI 

s 

RMN 

GINT0570 

CO 

22 

I*3t  IM 

CINT05P0 

P2 

X 

P*RTI  1,  IA,KN)  ♦ 

0»PT(I  ,IA>1,KN) 

CINT05P0 

IF 

<R2 

- R)  22,24,24 

CINT0600 

22 

R1 

= 

R2 

C TNT0610 

INR 

X 

♦ 1 

CINT0620 

S 

X 

0. 

GINT0630 

T 

X 

1. 

CINT0640 

IR 

= 

IM-  I 

CINT0650 

GO 

TO 

26 

CINT0660 

24 

IP 

= 

I - 1 

r,  INT0670 

S 

= 

(P-R2)  / (P1-R2) 

CINT0680 

T 

S 

1.0  - S 

GINT0690 

26 

7 

= 

S*PTI IR , 1,KNI  ♦ 

T*RT(IRAl,l,KN) 

CINT0700 

PETURN  CINT0710 

ENT  C TNT  0 720 


SUBROUTINE  WPNTR M (KHU tKWSEG t 

1 KTSFGf  t TSTAT,KTU,LSVST,I TTU.MAXWTUf 

2 INFORM, LBRSVS  ) 

CCMMON/FCONST/  VAP ( 15) ,lMISr  CiS) 

COMMON/STRCON/  jpk.ipk 

COMMON  /CTIME/  TIME, TIMEA,TlMEB,TBEGIN,TIMENn,TlMAX,TSTEP 
CIMFNS  ION  KWSFGI  1 ) ,K TSEG ( 1 ) , I NFORM ( 1 ) ,LBRSYS (1 ) ,ITSTAT(1 ) 
CIMENSION  LSYSTIUf  ITTUIl) 

CIMFNS I ON  JUPIAItMEOI 51 f JTGC  5) ,TGT(5) 

CATA  JWP,JTG,WFP,TGT/9*0,  10*0./ 

KAMFL IST/SAMOSS/  T IMF , 1 WPN ,K S YS . 1 TGT,KSTATF 
NLPP=IMISC( 31 
IS IOF=IMISC( A) 

IPR=IMISCI5) 

IN  IT  = 0 
N6  = F 

ITIMF=( TIMF-TPFGIM )*1000. 
r.r  150  IWU*1,KWU 
KSEG=KWS£GI IWU) 

ISFCsKSFG/  ipk 

ICO  in  ISEC.EO.O  ) GO  TO  15C 
iwopr=iNFnfiM( ISCGA7) 

IF!  IwnRC.FO.O)  GO  TO  110 
ITDIxMonC IWORC, ICOOCO) 
in ITDI .FO.O)  GO  TO  109 
IF(  ITDI  .GT  .ITIME  ) GO  TO  UO 
ITGT*MOn( INFORM! ISEG), 10000) 


WPNTOOlO 
WPNT0020 
WPNT0030 
WPNTOOAO 
WPNT0050 
WPNT0060 
WPNT0070 
WPNTOOBO 
WPNTOOOO 
WPNTOlOO 
WPNTOl  10 
WPNT0120 
WPNTOnO 
WPNTOl AO 
WPNT0150 
WPNTOl  (SO 
WPNTOl 70 
WPNTO  100 
WPNTO  100 
WPNT0200 
WPNT021 0 
WPNT0220 
WPNT0730 
WPNT02A0 
WPNT0250 
WPNT02f>0 
WPNT0270 
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IF(  ITSTAK  ITGT)  .IF  .0)  GP  TO  109 
LINF=  I\Fr''>w(  |SFG+6»/l000C0 
(SVS=LHP  SVS«  L lA-T  I 

iTYPF^^'Pot  I SYS,  I cri 

IFJ  ITYPF.FQ.O)  GO  TO  IC9 

IF(  rTYPF.FC.33»  ISYS=LP'’SYS(LINE*n 

JWP(  1 >=Mr'n(  I SYS  / mo,  IOC) 

JWP)  3)=INFnPM( TSFG  )/lOOOO  • 

JWP(4)=C 

P AMGF=  INFnpY ( ISEG+3) 

WFP(  1 ) = RANGF*.l 
TL=iwnpn/iccooo 
TC= ITO  1 

WFP«  7 ) = ( TC-TL  >*.001 
JTCT= ITGT-KTU 
IFCJTGT.CT.OI  GO  Tn  10? 

JTG(  1 ) = 1 
JTG(  2 )=  TTGT 

JTG( A )=Mnn(LSYST( I TGT) ,l 00) 

GP  TO  105 

IC3  ITTUI=ITTU< JTGT) 

JTGI  1 )=Mnn(  ITTlli,  lO)/2 

JTG(  7 Iswrni  1 TTU(  MAXWTU<-JTGT)  , 100) 

lPP=Knr( ITTOl/lOCC, 100) 

JTG(  3 )= IPP 
JTP(  4 )=  IPP 
1C5  rPNTlMOF 

FALL  K II  L FX(  IN  I T , 1 SI  D : , JW  P,  WF  P , J TG  , T3  T , I PR  , Ki  F At  E ) 
IEIKSTATF.GT.O)  ITSTATII  TGT)=KSTATF*1000«-Mnn(ITSTAT(ITGT)  ,1000  ) 
IFIKS  ATF.FO.O)  I TSTATI I TGT)=-l 
in  Nl  PP  .FO  .0  ) GO  TO  1C9 
IWPN= INFORM!  ISFG  )/100CC 
K SYS=MrC(LDR  SYS ( L IMF  I , 100) 

WR  I TF(  Mfc,  SAMGSS  ) 

C 

F FOSStPI  F IMTPPFEOT  LM  I T K U L FD 
C PrSSIRLF  PRIMARY  OMIT  KILLFO 
C 

ICO  rONTniMF 

c 

C FlNAl  riSPPSITtOM  FOR  SAMS,  SAGS,  GENERAL  WPMS 
F, 

IMFftPM!  IS  FG*  7 > = 0 
I 10  IWORPr  INFORM ( TSFG^fc) 

|F(  IW'IRP.EO.O  ) GO  TO  115 
iTFs=Mrn( iwoPD, 1 00000) 

IF!  ITFS  .GT.I  Tl  me  » GO  TO  140 
L IN  F=  IWFIP  0/  100000 

L PPSYSI L r'E) =L “R  SYSIL INF) >100000000 
IMFpi'M!  ISFG>t  ) = n 
115  iwnrnr inform ! I SFG>4) 

IF!  mMF.I  T.Moni  IVOPP,10COOO))  go  to  140 
F'LL  OTLSRCI  I NFORM , KW SE G , KT SFG , I SFGt 
l<in  i5Rr,=Mf>ri  inform  I ISCG>1),?PK) 

Ct’  TO  100 
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WPNT0280 
WPNT0290 
WPNT0300 
WPNT03  10 
WPNT0370 
WPNT0330 
WPNT0340 
WPMT0350 
WONT0360 
WPNT0370 
WPNTO  iflO 
UPNIO'^OO 


WPNT0400 
WPNT0410 
^'PNT  047  0 
WPNTO 4 30 
WPNT0440 
WPMTOASn 
WPNT0460 
WPNT04  70 


WPNTOAflO 
WONT04O0 
WPNT0500 
WPNT05 10 
WPNT0570 
WONT 0530 


150  CrNTINLiF 
P FTIJPN 
END 


WPNTpfl30 

WPNTOfl^O 

WPNT0850 


SUPPOllTIME  KILtrxCINIT.KSinE  , JWP  ,WEP  , JTG  , TGT,  IPRNT.KSTAAI 
C«**  PGM=NXX(NEM)  l.n.G.  12-7-73  FORTRAN  IV  EBCO 

CMC t A EC. PR  INT  VAR=  108 1,1211 f 1261, 1460,  14  81 ,1631  , 1 760 , 1 78 1 , 19 3 1 . 12-6-74 
C NAMFL  157  = 4740-4800,  5020-5070. 

C TO  INITIALIZE  FOR  EACH  MONTE  CARLO  PASS.  THEN  KILL  AND  OPOATE 

C***  WEAPONS 

riMENSION  JWP(4),  WFP(5) 

C IMIT  = 0,  no  MOT  INITIALIZE  IN  THIS  CALL 

C TIMF  = BATTLE  T IMF  IN  HOURS 

C JSIDE  = SIDE  OF  THE  ATTACKER  I1=BLU1,  (2*RF0) 

C JWP(11=  KSA,  Pnw  riUMBFR  IN  KBSTl  1 OR  KRSTI  1 

C (21=  UNUSED 

C (3  1=  KUA,  UNIT  INDEX  IN  KBUK  OR  KRUK  OF  UNIT  WHICH  LAUNCHED 

C (4)=  JAM,  (=0,Mn  JAM » , ( = 1 , JAM) 

C WFP(1)=  RNG,  RANGE  TO  TARGET  AT  LAUCH  (GUN  OPENFIRE),  NM 

C (2)=  TOFG,  TIME  UF  FLIGHT  OR  DURATION  OF  GUNFIRE 

C 

c***  targets 

DIMENS  ION  JTS  ( 5)  , TST(5I 

r JTG(l)=  JPT,  ( = 1, PERMANENT  UN  1 T ) , ( = 2 , TE  M POR  A R V UNIT) 

C (21=  KU  , TARGET  UNIT  INDEX  IN  KBUK(I,KU)  OR  KRUK(I,KU) 

C IF  A PERMANENT  UNIT 

C (31=  KSB,  POW  NUMBER  IN  KBST(KSB)  OR  KRST(KSfl)  IF  TEMPORARY 

r (<,)=  KPB,  TARGET  TYPt  INDEX  IN  KRPT(KPB)  OR  KRPT(KPR1 

C ( 5)  = UNUSED 

C TGT(  )=  UNUSED 

CK  ILLF 

rOMMON/CK ILLF/L VSHP,MVSHP,NVSHP, VULSHPr5,12,l) , NUA.NUNMX , 

1 KSTATEI100),PKLAST(100) ,PPRnD(100) ,CUMWT(100) ,VULCST(100) , 

2 VUKTLl ( lOO) , VWK ILL ( lOCI ,VULF S,VULFA,VULFM 

C**« 

COMMON  ZDFV I CF/  N 1 ,N2,N3,N4,N5,N6,N7,N8,N9,N10, N1 1 ,N12 
rOMMOfl/INOUIJ/  IPF  I 16)  ,JPAR  ( 16  ) , PAR  I 16)  , LABEL 
COMMON/ INOUT/^'L  INF, N PAGE, DUMA  (35)  , NCODEI  19) 
l,irUMBI72l,  NFL  AG,  NFLAG2 
CNAVIC 


1 

2 

3 

4 

5 

CPL  AT 

1 

2 

2 

4 

5 


COMMON/CN aVIG/  NGMX,BE  ,RF ,RE ,RF , 

NRG, BA, BR, BC,RD,KRGN| 18) ,KBGK(  18)  ,BGC ( 8,6,18)  ,NBU( 18 ) , 
NRG,RA,RR,RC,RD,KRGN(1R),KRGK(18),RGC(  8,6,18)  ,NRU (18) , 
TT1MF,NUMX, 

KnU,KRUK(4, 5C),BREL(4,50) ,BXYZ(50,7) ,NAMBU(50  ,2) ,BV( 50,8)  , 
KPU,KRUK{4,50) ,PPFL(4,50) ,HXYZ(50,7)  ,NAMRU(50  ,2),RV(50,8) 
VS  SYSTEMS  (SUBSYSTEMS) 

rOMMOM/CPLAT/NBP,NRPMX,NRSS,NBSSMX,NRSPPI15) ,NRPWS(45 I , 

NAMbP( 2,  15),KBPTI  15) ,NABSS(2,45) , KR ST ( 45 ) , KBPXS (45,15)  , 

BPXK  12,  15), 

NRP,NRPMX,NRSS,NRSSMX,NRSPP(15) ,NRPWSI45) , 

NAMPP( 2,  15),KRPT( 15) ,NARSS(2,45) ,KRST(45)  ,KRPXS (45, 15) , 

RPX  1( 12, 15) 


K ILXOO  10 
K ILX0020 
KILX0030 
K ILXOOAO 
KIl *0050 
KILX0060 
KI LX0070 
K It  XOOBO 
K 1LX0090 
KILXOlOO 
KlLXOllO 
K ILX0120 
KILX0130 
KILXn  140 
K ILXO  150 
K ILX0160 
KILX0170 
KIL*01R0 
< IL  X OlOO 
K II  X0200 
K It  X0210 
KILX0220 
K ILX0230 
Kl LX0240 
K IL<0250 
K tLX0260 
KILX0270 
K IL  *0280 
K ILX02O0 
K IL  *0300 
KILX0310 
K II.  *0  320 
K ILX0330 
KIl  X0340 
K IL*0350 
K Tl *0360 
KI L*037n 
K I L*0J80 
K (L*0  300 
K It  *0400 
K II  *0A  10 
K ILX0420 
K IL  X0A30 
KIL*  04, *,0 
KI LX0450 
K 1LX0460 
K ILX0470 
KILX04B0 
K ILX04<J0 


i • 
i' 

r: 


1 

3 


N-  141 


1 

[ 


C'^SlSYS  16  2 2 6 6 24  50 

^PMvrJ^  /CMSL  SV/  NMSl  ,NMSLMX,NeSS**,NBASM,NP<;5M,NR  AS  P,  L ATMSL  , LTP  A Jf 

1 NAMMsl  ( 2,  16)  ,KMSl  TY(  16)  , 

2 OATMCtl 24,  16),  TTRAJ|50,16) 

CZ7SYS  25  11  12  15 

rOMMiiN/C/ZS  YS/N7Z  SVS,NZZSMX,NBZSYS»NR  ZSYS  ,LA  ZZ  ,NAPS  YS  ( 2 , 25)  , 

I KZZTYP(25),ZZSYS<15,25) 

CSAPl  T P , 12,  15, 

rnPMOf;  /r  SAML  T/L  ,P',M,  PMW  ( I5)  ,RXM(  t 5)  ,rMN(  15  ) ,FMX{  I 5)  ,ZMX  f 1 5 > , 

1 XMX)  15),  PT( 8,  12, 15) 

CS^'SYS  15  4 4 2 4 20 

ZCSASYS/  NSA5XS,MSASMX,NBGUN,NHSAM,NRr,UN,NRSAM,  LAS  A, 

I MAVSAl 2, 1 5) ,KSATYP( 15) , SA SYS ( 20,15) 

CPACAR 

/fRACAR/MPSP  ,NBTP  ,NBRMX  ,NBJ,NBJ)^X, 

1 BP4n(’6,17),RFr'V(6,2),flFTC(4,2),5TAR(6,3),BJAM(6,3,2), 

2 fJRSR,r  KTP,.VRRMX,NRJ,NRJ»‘X, 

3 PDAn(36,15),RFMV(e,2),RETC(4,2),RTAR(6,3),RJAM(6,3,?) 

CHDMFR 

fOPMON/rv^lMFR/  NHOM.r'HriPMX  ,NAmC“(2,lO)  .KHOYTYl  10  ) ,nATHPM(3ft,  lo) 
COMMON /ET  IMF /time ,TTMFA ,TIMFB,TBEG I N, TI MFNO , E t M A X , TST EP 
20C1  FORMAT  ( IHC,  'ERROR  IN  KILLFX.  El=',F6.2,',  T 1 ME=  • , F 10 . 4 , 

1 ',  SIDE =',13/ 

2 6X, 'KWFPTV^', ! in,  K S A , KUA , J AM  ,PNG= ' , 3 1 5 , F8 . 2/ 

3 6X,  •KT('.TTY  = ' , I 10,  • , JPT,KU  , K SB  , K PR=  ' ,4  I 5 ) 

r*** 

1 JS  lOF  = KSlOE 

IPR  INT  = IPRNT 
K STA A = - 1 

IF  ( IM IT .FQ.O)  GO  TO  20 
IN  IT  lAl  IZF 
IN  IT  = 0 

^|U^’MX  = NUMX  * Nl.'MX 
NUN  = KRL  ♦ KPU 
MSVTMX  = NB'RMX  ♦ NPSSMX 
NSYT  = "PSS  ♦ NRSS 

C IR  ( VULFS'f-VULF  A*VU1  FM.GT.. 00001  ) GO  TO  8 

VULFS  = .5 
VULFA  = .1 
VUl.  FM  = . I 

8 ro  10  T=l,NLiNMX 

XSTATFI!)  = 5 
PPROni  I ) = 1. 

PKL AST  ( I ) = .0 
niMWT(  I ) = .0 
VULOSTI  I ) = .0 
1C  VUK  II  I ( I ) = .0 

r-'  12  I=1,MSYTMX 
12  VWKILLII)  = .0 

PFTUPA' 

r***  SETUP  TP  FVALUATF  KILL 
20  YCfl  = jwP I 1 ) 

KPA  = JWP I 2 ) 

UA  = JWP(  3 ) 

JAM  = JWP( 4 ) 


KILXOSOO 
Kf LX0510 
K ILX0520 
K II  X0530 
K ILX0540 
K I LX  0 5 50 
KI I X0560 
K1LX0570 
K ILXnSflO 
K ILX0590 
K 11.  Y06nn 
K ILX06I0 
KILX0620 
Y ILX0630 
K!  LX0640 
K ILX0650 
KI LX0660 
K ILX0670 
K ILX06B0 
K 1 LX0690 
K I LY07n0 
K ILXOTin 
K rLX0720 
K ILXO730 
K ILX0740 
K 11.  XO  E50 
K II,  X 0760 
K II  X0770 
KIl X07P0 
K ri  xo7m 
K IL  xonno 
K ILXOPIO 
K I L XnR70 
KIl  Y 0530 
K 1 1 YOPAO 
KTl  X()P50 
K 11  X 0 86  0 
K I L Y 0 8 7 0 
KIl  X 0 8 P.  0 
< 1 1 X OROO 
K I LY  09  00 
KM.  Y 091  0 
K 1 1 X 0 9 20 
K Tl  Yon  30 
KIl  X0  9/O 
K U X 09  6 0 
K n Y n V.O 

KIl  Y 09  7 0 
K 1 1 YOU  80 
K 11  X 0090 
K II  < 1 000 
K II  X 10  10 
KIl  X I O-’O 
K I LX  1030 
K!  I.X  1 040 
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RKT,  = WFP(  1 » 

TOFG=  V.FP(^) 

JPT  = JTGl  I ) 

KU  = JTG(2) 

K SB  = JTG«  3 I 
KPB  = JTG(A) 

kwfap  = Ksa 

KWUNl  = KUA 
KTGTU  = KU 
KTGTTY  = 0 
KWFPTY  = 0 
FI  = 20. 

GO  TO  ),  JSIOF 

C***  ERROR  MFSS&GF 
22  IF  ( IPRINT.LF.OI  RETURN 

WP  ITE(N6, 200  I ) FltTIME.JSIOE  tKWEPTYtKSA ,KU4 , JAM  ,RNGt KTGTTY, 
I JPT,KU,KSB,KPe 

IF  I El.L  T.20C.  I RETURN 
IPRINT  = 2 
GO  TO  SOOl 

€♦♦♦  RIU  OR  RFO  WEAPON 
24  KWFPTY  = KBST(KSA) 

NAWT  I = NAPSSI  l,KSA  ) 

N4WT?  = MAP  SSI  2,K  SA  ) 

NAWUl  = NAMRUIKUA  , 1 ) 

NAW02  * NAMRUI K UA , 2 I 
KW(ITYP=  K0UK(2,KUA) 

KAOn  = 70 
KWK  ILL  = KSA 
KUKILL  = KUA 
GO  TO  2P 

2«  KWFPTY  = KR  STI K SA  I 

NAWT I = N AR  SSI  I ,K  SA ) 

NAWT2  = NAHSSI2,KSA) 

NAWU I = NAMRUI KSA, 1 1 
F'AWU2  = NAMRUIKSA,?) 

KWUTYP=  KRUKI2,KUA) 

KAf'n  = PO 

KWK  ILL  = NRSS  ♦ K SA 
KUKILL  = KRL  ♦ KUA 
2fl  KWFP  = MODI KWE PTY, 100) 

FI  = 2fl.01 

IF  (KWFP  .LE  .0)  GO  TO  22 
KWFPT  = KWFPTY  / 10000 
KTFSTA  = KWFPT  / 100 
KWFPTP  * MrDIKWFPTY/100,100) 
nn  32  l»2,S 
KTFST  - KAOO  ♦ I 
IF  (KTFST. FO  .KTESTA  ) GO  TO  34 
32  CONTINUF 

FI  = 22.01 
GO  TO  22 

3^  KTRANW  =1-1 


K ILXIOSO 
K ILX 1060 
KILKIOTO 
KILX  tORO 
KILX 1000 
Kiix lino 
KILXlllO 
K IL  XI l?0 
K ILX1130 
KILX1140 
KILXllSO 
K ILX 1 160 
K.  I LX  1 170 
KlLXl  IRO 
K ILX 1 IRO 
K ILX 1200 
KILX1210 
K ILX 1220 
KILX1230 
KILX 1240 
KILX1250 
K ILX  1 260 
KILX1270 
KILX  12fl0 
KILX12R0 
KILXl3nO 
KILX1310 
KILX1320 
KILX1330 
K ILX 1 340 
KILX 1350 
KILX1360 
KILX1370 
K ILX  1 jno 
K U X 1 300 
KILXl^OO 
KILX 1410 
K ILX 1 A20 
KILX  1430 
KILX  1440 
K II  X 1450 
KIIX  1460 
KUX1470 
KILX 14P0 
KILX 1400 
KILX  1500 
K Tl  X 15  10 
K H X 1520 
K IL  X I 530 
K 11 X I 540 
K ILX 1550 
KILX  1560 
KILX  1570 


p 


c*** 

R FO  TAR  GFT 

KILX1600 

36 

NATH  1 = N AMRU( KUt  1 J 

K ILX  16  10 

NATU2  = NAMRU(KUt2) 

K1LX1620 

KUfJtT  = KR(tK(2tKU» /lOOOO 

K ILX 1630 

rn  TD  (38f40),  JPT 

K1LX1640 

C*** 

SUP,  ACFT,  SUB  - TARGFT 

- 

RED 

K1LX1650 

38 

KULOST  = KBl  ♦ KU 

KILX 1660 

KTAPG  = KU 

KILX  1670 

KTGTTY  = KRL;K(  2,KU) 

KILX1680 

VAl  TGT  = PPFL(  4,KU> 

K1LX1690 

KTFST  = KRPT(KPB) 

KILX 1700 

FI  = 2H.03 

KILX1710 

IF  (KTFST.NE  .KTGTTY)  GO 

TO 

22 

K1LX1720 

KTGTT  = KTGTTY  / lOOOO 

KILX 1730 

KTG  = KPB 

K ILX 1 740 

FLN  = PPXK  1,KTG) 

K ILX 1750 

SPN  = RPX 1( 2, KTG) 

K ILX 1760 

HGT  = RPXK  3,KTr,) 

K ILX1770 

VULO  = PPXH  11  , KTG) 

KILX 1780 

VUL  1 = PPXK  12, KTG) 

KILX1790 

GO  TO  60 

KILXIBOO 

C*** 

SSM  c ASM  - target 

- 

RED 

KILX 1810 

40 

KTGTTY  = KRSTIKSP  ) 

K1LX1820 

F'ATWl  = MAPSSC  1,K  SB) 

K ILX  18  30 

NATW2  = NARSSC2,KSR) 

K ILX 1840 

KTAPG  = KSB 

KILX1850 

42 

CONT  INC’F 

KtLX1860 

VALTGT=0. 

KILX 1870 

KTGTT  = KTGTTY  / 10000 

K ILX18R0 

KTG  = MpniKTGTTY, 100) 

KILX 1890 

FIN  = rATMSLC  16,KTG) 

K II  X1900 

SPN  ^ CATMSL ( 17,KTG ) 

K ILX  IfilO 

BGT  * OATMSL ( 1«,KTG ) 

KILX1920 

PVUL  = PATMSL( 20, KTG) 

KU  X 1930 

IF  ( PVUL .GT . .00 1 ) GO  TO 

44 

KILX 1940 

PVUL  = .S*( VULFM*elM*SPN*HGT )♦♦. 333333 

KILX  1950 

44 

GO  TO  eo 

K ILX 1060 

r*** 

BLU  TAPGFT 

K ILX197n 

46 

NATU 1 = NAMPU( KU,  1 ) 

KILX 1980 

MATU2  = NAMBu(KU,2) 

KII  XIOOO 

KUNfT  = KBUK(2,KU)/10C00 

K ILX2000 

GO  TO  (48,50),  JPT 

K1 LX2010 

r*** 

SUP,  AGGT,  SUB  - target 

- 

BLU 

K ILX2020 

4R 

KUI  PST  = KU 

KILX 20 30 

KTAPG  = KU 

KILX2040 

KTGTTY  = KBUK(2,KU) 

KILX20F0 

VALTGT  = PRFL(4,KU) 

K 1 1 X 2060 

KTFST  * KBPT( KPP ) 

KlLX2n70 

FI  * 48.03 

K ILX2080 

IF  (KTFST.NE .KTGTTY)  GO 

TO 

22 

KILX2090 

KTGTT  * KTGTTY  / 10000 

K ILX2100 

KTG  = KPB 

K1LX2U0 

FLM  = BPXK  1,KTG) 

KI  LX2120 

SPN  * BPXK  2, KTG) 

KILX2130 

HGT  = 8PX  K 3,K  TG  ) 

KILX 2 140 

*1 


‘i 
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VULO  = OPX 1( 11, KTGl 

KILX2150 

VUL  1 = PPXU  12,KTG» 

KILX2160 

GO  TO  fcO 

KILX2170 

r*** 

S5M  t ASM  - TAPGfT  - BLU 

KI  LX21 80 

50 

KTGTTY  = KB  ST( KSR ) 

KILX2190 

NATW  1 = N ABSSl  1 ,K  SB  ) 

KI LX2200 

KIATW2  = NAPSS(  2,K  SB  ) 

KILX2210 

KTAFG  = KSB 

K ILX2220 

GO  TO  A2 

K ILX2230 

€•♦♦ 

K1LX2240 

C*** 

PPAKlfP  FOR  WFAPON  TYPFS 

K ILX2250 

6C 

PWO  = -2. 

K ILX2  260 

SIO  = -2. 

KI LX2270 

PI  = -2. 

K II  X2280 

SIGA=  -2. 

K ILX2290 

SIGG  = -2. 

K rLX2300 

rCAP  = -2. 

KILX2B10 

PCAP  = -2. 

KILX2320 

PKSS  - -2. 

KILX2330 

Gn  TO  ( 20C, 2C0, 2C0, 5CC, 800,700,800,900) , 

KTRANW 

KILX2340 

C*** 

TORPFnrES,  ASWP,  ASPCC,  FRAS  ~ WEAPON 

KILL 

K ILX2350 

?oc 

RMX  = Z7SYS(  l,KWEP) 

K ILX2  160 

VFL  = 7ZSYS(  2,KWFP) 

KILX2370 

WWT  = ZZSYSI  3,KWEP) 

KILX2iR0 

PEL  = ZZSYSI  <»,KWFP) 

KI  LX23'10 

SAL  = ZZSYSI  5,KWEP) 

K It  X24nO 

SIG  = ZZSYSI  7,KWFP)  ♦ .849 

KILX2410 

RIA  = ZZSYSI  8,KWFP) 

K ILX2420 

PL  1 = 2ZSYS ( 9, KWFP) 

KILX2430 

PKE  = ZZSYSI  10, KWFP) 

KILX2440 

WHT  = ZZSYSI  14, KWFP) 

KILX2450 

PHIT=  ZZ  SYSI  15,KWEP  ) 

KILX2460 

IF  ISAL.LT.  .01)  SAL=l. 

K I LX2470 

IF  IRNG.LT..O)  RNG  = .8*RMX 

K 1LX24R0 

IF  IPKF.GT.  l.F-E)  GO  TO  202 

K ILX24<R0 

2C2 

RVUL  = .5*1 VUIFS*FLN*SPM*HGT)**.  333333 

K IL  X2500 

C**  « 

eranch  for  wapheao  type 

KILX  2510 

IF  IWHT.r.T.  .01)  CO  TO  212 

K U X 2520 

C*»* 

FEW  ARHFAP  V SHIPS 

K ILX2530 

IF  IPHIT.GT.  .OCCl)  GO  TO  206 

K n X 2540 

203 

RI  = .849*8IA*RMG*6.CflO 

K 1LX2550 

SIC  = S1G**2  + RI**2 

x ILX2560 

2CA 

RWO  = IP  VUL+RL  I )**2 

K I LX257C 

PHIT  = 1. 

K n X2580 

205 

IF  ISIO.LT.  .001)  GO  TO  206 

K I 1 X 2500 

PHIT  = 1.  - FXPI-.5  * RWO/SIO) 

K ILX  2600 

20« 

gall  K ILLHFIVULr,KULCST,VALTGT,WWT,RFL, 

SAL ,PHIT , KUK  U L, 

K ILX26  10 

1 KWKILL,  PK) 

K ILX2620 

GO  TO  9000 

KILX2630 

C 

KM  X2640 

c*** 

NUr.lFAP  WARHEAD  VS  SHIP 

KILX2650 

212 

RWO  = IPVUL*Rl 1 )**2 

K 1 1 X2660 

IF  IPHIT.LT.  .OCOl)  GO  TO  214 

K ILX2570 

213 

SIO  = -.5*PWO/ALOGI  1 .-PHI T) 

K ILX26P0 

GO  TO  216 

K 1LX26"0 

N-  1^5 
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21^  PI  = IA*PK'r,*  6.C80 

SIC  = Sir,**2  ♦ BI**2 

€♦♦♦  4CJUST  FtlR  RLl.CT.O  (CAPTURE  RADIUS  FDR  HOMING  TfRPFDCFS  ,FTC . ) 
215  IF  ( RL  l.LT,  1. ) Gr  TO  216 
IF  (RVUL.LT.  10. J PVUL=10. 

SIP  = I SI0*RVUL**2 ) / (PVUL>RLH**2 
2l(  CALI  KILLNI«(VULO,VULl,KULOST,VALTGT,WWT,REL,SAL,SIO, 

1 KUK IIL tKWKl LL.PKSS, PK) 

GO  TO  9000 

C*** 

C***  SURFACE  TH  AIR  CUES  - WEAPON  KILL 
50C  GO  TO  700 

C*** 

surface  to  air  MISSILFS  - WEAPON  KUL 
data  PHA^OA  ,PHARDM/  10.1  5./ 

7CC  RMX  = SASYS(  l,KWEP) 

TOF  = 3600.*  TOFG 
ANOl  E = 10. 

CALI  TLU23(RT,L ,M,N,K WFP, TOF, angle tRTF , I NOY , I NOX , I KY , I NX ) 

VEl  = SASYS(  2,KWFPI 
WWT  = SASYSI  3,KKFP) 

PEL  = SASYS(  9,KWEPI 
sal  = SASYSI  5,KWFP| 

SIG  = SASYS(  7,KWEPI  * .849 
PIA  = SASYSI  R.KKEP) 

RLl  = SASYSI  9,KKEP) 

PK  F = SASYSI  10,KVFP I 
WHT  = SASYSI  14, KEEP) 

PHIT=  SASYSI  15,KWFP  I 
PWO  = -2. 

SIO  = -2. 

“I  = -2. 

ISAL.LT.  .01)  SAL=1. 

C<*«  IS  TARGET  AN  aircraft  OR  A MISSILE 
KTEST  = KTGTT  / 100 
KAM  = ? 

IF  IKTFST.FQ.62.CR.KTFST.E0.82)  KAM=l 
PK  = dkF 

IF  (PKF.GT.  I.F-6)  go  to  750 

IF  I PUT  .GT  . l.E-6)  GO  TO  740 

PHARE  = PFARDM 
IF  (KAM.FO.2)  go  to  708 
PHARO  = PHAROA 

RVUl  = .5*1 VULFA*FLK*SPM*HGT)**. J33333 
70fi  KTFST  = WHT  ♦ .01 

IF  IKTFST.NF.2)  GO  TO  710 

IF  (RL  l.LT.  .01)  PL1=  5. 

GO  TO  712 
C***  EE  WARHEAD 

710  IF  (RLl.LT.  .01)  R I 1 = . 2 3* WWT/ SQR T I PH ARD) 

712  PWO  = (RVUL  *Rl  1 )**2 
PI  = RIA 

SIO  * SIG'**2  ♦ Pl**2 
PH  IT  = 1. 

IF  (SIO.LT.  .001)  GO  TO  740 


KrLX2700 
“I LX2710 
K ILX2720 
KILX273n 
K IL *2740 
KILX2750 
KILX2760 
KILX2770 
K ILX2780 
K ILX2790 
KIL  X2800 
KILX2810 
KILX2820 
K 11  X2830 
< ILX2840 
KILX2850 
K IL  X 2960 
K ILX2fl70 
K lLX2nRn 
<11X2890 
KIL<2900 
KrLX2Pl 0 
KIl X2920 
K fl  X2930 
K ILX2940 
KU  X2950 
K! LX2960 
K ILX2970 
KlLXPaOO 
KILX2990 
K IL  X 3000 
K IL  X39n 
K1LX3020 
KILX3030 
K (LX3040 
K ILX  3050 
K ILX  3060 
K ILX3070 
KILXTORO 
K 1 1 X 3 090 
KILX3IOO 
K1LX31 10 
K I LX  3 I 20 
K ILX 3 I 30 
KILX3140 
MLX3150 
KILX3160 
KILX3170 
KILX3180 

K n X 3 lOf) 

KM  X3200 
K ILX3210 
KILX3220 
KILX  3230 
K ILX  3240 


'4 
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PHIT  = 1.  - EXP  (-.5*RWij/SI0) 
rn  Tn  7^0 

7AC  K'SAL  = 541  ♦ .0  1 

PHIT  = 1.  - ( l.-PHI T*RFl ) ♦♦NSAL 
PK  = PHI  T / 
r***  KILL  RECHRO 
75C  XRN  = UPNinUHMY) 

PRNG  = 1. 

IF  I RTF.l  F..75*PKX  .ANn.PTF.GE..25*RMX)  GO  TO  7501 
PRNG  = 0.8 

IF  (RTF.LE..0  .OP.  PTF.GE.PMX)  GO  TO  7501 
X = PTF  / RMX 

PRNG  = -3. 2*( X-.25»**2  ♦ l.O 
IF  (X.GF..7E)  PPNG  = -J.2*( X-. 751 •♦2  ♦ l.O 
75C1  PK  = PK  ♦ PRNG 
KST44  = 1 

IF  IXPN.IT.PK  ) KSTAA  = 0 
IF  (KSTAA. GF.IJ  GO  TO  9010 
VUK  ILL (KUKILL I = VUK I L L ( K UK  1 LL > ♦ VALTGT 
VWKILLIKWKIIL)  = VWKILL(KHKILL)  ♦ VALTGT 
GO  TO  I752,75A),  KAM 
€*♦•  AIRCRAFT  TARGET  ONLY 
7*2  VULrST(KULnST)  = VALTGT  ♦ VULOST ( KULOST) 
KSTATF(KULOST)  = 0 
CO  TO  C012 

C***  RISSILF  T4RGFT  ONLY 
75A  CATRSl  (LATMSLf  KTC  ) = OA  TJA  SI  ( L A TM  SL  , KTG  ) ♦ 1. 

CP  TO  9012 

C***  SSM  & A SM  - WEAPON  kill 
80C  PWO  = -2. 

SIO  = -2. 

81  = -2. 

SIGA  = -2. 

SIGC  = -?. 

rCAP  = -7. 

PCAP  = -2. 

RMX  = CATMSLI  l.KWFP) 

VFl  = OATHSLI  2fKWFP) 

WWT  = DATHSLI  3,KWFPI 
PFl  = OATMSLI  A,KWFP) 

SAL  = OATMSLI  5tKWFP» 

SIG  = OATRSLI  7tKWFP)  ♦ . 8A9 
8 lA  =34  TMSL(  e,KWF  P) 

rnnFR=  o atrsli  o,kwfp  i 

SIGJ  = PATRSLC I C.KWFPI  ♦ .849 
rTrPM=  flATMSLI  1 l,KWFP) 

CM ir  = OATMSLI  12tKWFP ) 

TRAJ  = PAT^Sl.l  13,KWFP» 

WHT  = PATRSLI  lA.KWEP) 

PHIT  = PATRSLI  15,KWFP  ) 

r**» 

IF  ( SAI  .1  T.  .Oil  SAl  =1. 

IF  (RMC.LT.  .0)  PNG  * .8*RRX 


N-  147 


KILX3250 
Kl  LX  3 260 
KILX3270 
K IL  X 3280 
K ILX3290 
K ILX3300 
KILX33I0 
KILX  3 320 
K ILX3330 
K1LX3340 
KILX3350 
KILX3360 
K ILX3370 
K II  X3380 
KILX3390 
K ILX3400 
KILX3410 
KILX  3420 
KI LX3430 
K ILX3440 
K ILX3450 
K IL  X3460 
KILX3470 
KILX  3480 
KUX3490 
f ILX3500 
KILX3510 
K IL  f 3520 
K (I X3530 
KI L X3540 
K IL  X3550 
K U X3560 
Kit  X357r) 
K II  X3SP0 
K ILX3590 
K U X36nr) 
KIIX3610 
K ILX  3620 
KILX3630 
KILX  3640 
K IL  X3650 


K ILX'X660 
KI LX3670 
K ILX36P0 
K IL  X36O0 
KI LX3  700 
K ILX3T  10 


ti 


r 


PLl  = .0 

PVUL  = .5*(  V(JLFS*EL^♦SPN*HGTI**. 333333 
IF  ( JAM.GF.l  ) SIG  = SIGJ 
KWFP3  s Mn0(KWFPT/l0,10) 

KWEP-i  = M0DIKWEPT,10» 

C***  CASE  NO.  1 

IF  IPHT.LT.  .0001)  GO  TO  804 
IF  ( HFT.LT.  .01)  GO  TO  206 
CO  TO  212 

C***  ANAIYZF  GUICAMFE 
8CA  KGTFPMs  GTEPM  ♦ .1 

KGTXX  = M0D(KGTFP>',  IOC) 

KGMIC  = GMIO  ♦ .1 

kghxx  MnniKGMin  ,ioo) 

KPOM  = (COCEM*IOP.)  ♦ .1 

IF  (KCTXX.NF.O  .op.  KGMXX.NF.O)  go  TO  806 
c***  Mr  GDIOAMCE  TYPE  SPFCIFIEO.  USE  CEP.RIAS.RLl  INPUTS 
IF  (WHT.LT.  .01)  GO  TP  203 
GO  TO  214 

806  IP  (KPCH.LF.O)  go  TC  808 
C***  MircnURSF  GUIPANCF  SETUP 
IG  = KD3M  / lOCCC 
IF  = MPOIKOOM/ 1000, 10) 

IL  = Mpn<KOOM/irc, 10) 

PLP  = MpniKPOM/lOtlO)  * .1 
PLV  = (KPOM/IO)  ♦ .1 
FI  = 806.06 

IF  ( VFI  .LF.  1.  ) GP  TO  22 
TH  = PNG  / VEL 
PSI  = 1. 

El  = 806.08 

IF  ( IG*  IF* IL .LE .0)  GO  TO  22 
IF  I IC.GT.3.0R.IF  .GT.2.PR.IL.GT.3)  GO  TO  22 
fall  GUIDI TE.PSI , VFL,IG,IF ,I L, PLP.PLV, SXT.SYT, A) 
SIGA  = .849  * A * 6080. 

C***  HOMING  RADAR  SFTLP 
808  IP  (KWFPTR.LE.O)  GO  TP  810 

SFPV  = nATHnM(2F,KWEPTR)  * .0174533 
IF  ISFPV.GF.  3.  .OR.  SFGV.LT.  .0)  SFOV  » 3. 

PFTALF  = DATHPM  ( l.KWFPTP  ) 

IE  (JAM.GE.l)  DFTALF=nATH0M(2,KWEPTR) 

IF  I BF TAL F.CT.PNG ) PFTA1F*RNG 
nCAP  = PETALF  * TAN(.5*SF0V)  * 6080. 

810  IF  (KGTXX/10.F0.4)  GO  TP  820 
C*** 

c***  NP  terminal  homing  rapar  ♦***♦**•* 

IF  (KCMXX.LT. 51  .PR.  KGMXX.GT.53)  GO  TO  814 
C***  CASE  4.1 

C*«*  AUTOPILOT,  DOPPLER,  OP  INERTIAL  ♦ TRACK  COMMAND 
FI  = 810.02 

IF  (KODM.LF.O)  GO  TP  22 
PI  = .84q*BIA*RMG*6.080 
IF  IBI.GT.SIGA  ) BI*SIGA 
SIO  = Sir,**  2 ♦ RI**2 
812  IF  (WHT.GT.  .01)  GP  TO  216 


KILX3800 
KI  LX3810 
K IIX  3820 
KILX3830 
K ILX3840 
KILX3850 
KILX3860 
KILX  3870 
X IL  X3880 
KlLX38qO 
K ILX3900 
KILX3910 
KILX3920 
KI LX3930 
KiLX  3940 
K II  X39S0 
K ILX3960 
K ILX3970 
K ILX3980 
KILX3990 
K ILX4000 
< IL  X40  10 
KILX4020 
K ILX4030 
K ILX4040 
Kll X4050 
KIl X4060 
KILX4070 
KI LXAORO 
KILX4090 
K ILX4100 
KILX4110 
KI LX4120 
KILX4130 
KI LX4140 
KILX4150 
KILX4160 
K ILX4170 
KIl X41P0 

KILX419D 

KILX42C0 
KIl X42in 
KILX4220 
K ILX4230 
K IL  X4240 
KtLX4250 
KIl  X4260 
K II X4270 
K ILX4280 
K 11X4  290 
K ILX4300 
K 11X4310 
KILX4320 
KILX4330 
KILX4340 
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-■  ■ ' 

GO  TO  209 

K1LX9350 

IF  (KGMXX.NF.59)  GO  TO  818 

K ILX9360 

CASE  NO  . 9.2 

KILX9370 

inertial  only  haunch  t FORGE  TI  - NO  TERMINAL 

KILX9380 

El  « 812.01 

KILX9390 

IF  IKOCM.LF.  0»  GO  TO  22 

K ILX9900 

SIO  ■ SIGRR2  ♦ S1GA**2 

KILX9910 

GO  TO  ei2 

KILX6920  1 

CASE  NO.  9.3 

K1LX9930 

ANY  NinCOURSF  ♦ VIOEO  - NO  TERMINAL 

KILX9990 

. 8ie 

El  • 818.00 

KILX9950 

• 

IF  (KGMXX.NE.55 1 GO  TO  22 

KILX9960 

T 819 

SIO  « SIG**2 

KILX9970 

f 

GO  TO  812 

KILX9980  I 

C**9 

KILX9990  ■ 

c*«« 

MITF  TERMINAL  HOMING  RADAR  ****♦*♦*♦*♦ 

KILX9500 

82C 

El  > 820.00 

K1LX9510 

* 

IF  IKWEPTR  .LE.O  » GO  TO  22 

KILX6520  ' 

IF  (KGMXX.Nr.O)  SO  TO  8>2 

< IL  X9530 

C**9 

CASE  NO.  5.  ^ 

KILX9590 

c*** 

TERMINAL.  NO  MIDCOURSE 

KIIX^550  1 

GO  TO  819 

K ILX9560 

822 

El  « 822.00 

KILX9570 

IF  (KGMxX.lt. 51.0R.KGMXX.GT. 531  GO  TO  830 

KIIX95R0  , 

IF  (KOCM.LE.O)  GO  TO  22 

KILX9590 

c*** 

CASE  NO.  6.1 

KILX9600 

c*** 

TERMINAL  ♦ MIOCOURSE  ( AUTO, OOPP, INERT  ♦ TCI 

K ILX9610 

R « PNG  - BFTALF 

KILX4620 

PCAP  * 1. 

^ KILX9630 

X 

IF  (R.LT.  5.00011  GO  TO  829 

KILX9690 

y 

TH  * R / VEL 

KILX4650 

CALL  GUID(  TH,PSI,VFL,IG,IE,IL,PLP,PLV,SXT,SYT, Al 

K ILX9660 

1 

SIGC  ■ .899  * A • 6080. 

KILX9670 

1 

IF  (SIGC.LE.  10. COD  GO  TO  829 

KlLX96fiO 

r 

PCAP  * 1.  - EXP (-.5*(0CAP/S1GCI **2) 

KILX4690 

‘ 829 

PHIT  « 1. 

KILX9700  ^ 

♦ 

IF  (SIG.LT.  1.1  GO  TO  826 

KILX9710 

■ 

PHIT  * 1.  - EXP(-.5*(RVUL/SIG)**2) 

K11X4720 

' 82C 

PHIT  « PHIT  * PCAP 

KILX9730 

IF  (MHT.LT.  .01)  GO  TO  206 

KILX979D 

IF  (PHIT.LT.  .0002)  GO  TO  9000 

KTLX4750  ! 

GO  TO  212 

K1LX4760 

C*** 

CASE  NO  6.2 

KILX9770 

ANY  ♦ V IDEO  ♦ TFRMINA  L 

KIIX47R0 

83C 

E 1 * 830.00 

< I.X9790 

IF  (KGMXX.NE.55)  GO  TO  22 

KILX4800 

} 

GO  TO  819 

KILX9R10 

? C*** 

KILX9R20 

c*** 

AIR  TO  AIR  MISSILES  C GUNS  - WEAPON  KILL 

KILX9830 

9CC 

REL  - 22SYS(  9,KWFP) 

KILX489n 

RMX  - ZZSYS(  l.KHEP) 

KILX4850 

VEL  • ZZSYS(  2,KMEP) 

KILX986D 

WWT  « ZZSYSI  3,KHEP) 

K1LX9870 

[ 

SAL  - ZZSYSI  5,KWEP) 

K ILX48R0 

j * 

SIG  * ZZSYSI  Z.KWEP)  • .899 

KILX9RO0 

■ 

. • 
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■* 

•% 

902 

90« 


r*** 

C**» 

90C0 

9CCI 

9002 

9CCA 

€•*< 


r 


4 


PIA  = 77SYS<  8,KWPP) 

RL  I = 77  SYS(  f.KWFP ) 

PKE  = 77  SY<:(  10,  KWFP  > 

WHT  = 77SYS(  1<V,KWFP) 

PH!T=  77SYS(  15,KWBP) 

PWO  = -2. 

SIO  = -2. 

PI  = -2. 

PK  = -2. 

IF  ( R^G.OT. .0)  GO  rn  902 

PNG  = .P  ♦ RMX 

PTF  = .6  * RMX 

TOFG=  PTF  / VFl 

CO  rn  9P4 

RTF  = VEl  * TOFG 

CONT  TMUF 

IF  (SAL.LT.  .01)  SAL=  1. 

IS  TARCFT  AN  AIRCRAFT  OR  A MISSILE 
KTEST  = KTGTT/ICO 
K AM  = 2 

IF  (KTFST.FO.62.rP.KTFST.EO,02)  KAM^l 
PK  = PK  F 

IF  (PKF.GT.  l.F-6)  GO  TO  750 
IF( PHIT.GT.  l.E-F)  GO  TO  740 
PK  = .123A5 

rn  Tti  750  ' 


\ 


PPIMT  OPTIONS 
KSTAA  = KSTATElKyLOST) 

IF  I IPPINT.LF.O)  pfturn 

MAMFL IST/WEAPA/TIME , jsiof.kweap.khept ,khuni  ,kwutv  f, phi t, 

I pcap,vwk,vuk 

NAMFL 1ST/WEAP0/PWO,PVUL,RL1,PHI T, SI  0, S I G , B I , S I ga , 

I SIGE ,0CAP,PCAP 

r'AMFL  I ST>TARGA/T  IMF,  JSIDE,KTARG  ,KTGTT  , PKSS  ,CUM,  PKLST  , VULST  ,KST  AT 
NAMFL  I ST/TAPGH/VALTGT,  VL'LO.VULl  ,RVUL  - 

NAMFL  IST/TARGC/TIMF, JSinE,KTARG,KTGTT,KTCTU,KUNI T 
CUM  = CIJMWTIKULOST) 

PKLST  = PKLAST(KULOST) 

VDLST  = VOLOSTI KULOST I 
kstat  = KSTATFIKULOST) 

VUK  = VUK  ILL ( KUKIl L ) 

VWK  = VWKILLIKWKILI I 
WRITF(N6,WFAPA) 

IF  ( IPPINT.GE.2)  WP ITF(N6,WFAPB) 

K = KTGTT/100 

IF  {K.CE.61.AN0.K.LE.fc3)  GO  TO '9004 

IF  (K.rF.8l.ANn.K.LF.B3)  GO  TO  9004 

NOT  A Sf<tP,  AIPPLANE,  OP  SUB 
WRITEIN6,TAYiGC) 

RETURN  ' 

WP  ITF(N6,TAPGA) 

IF  ( IPP  INT.GF .2  I 
RETURN 


WRITE (N6,TARGB) 


KILX4900 

KILX4910 

KILX4920 

K ILX4910 

K ILX4940 

K IL  X4P50 

K ILX4960 

KILX4970 

KILX4RB0 

KILX4990 

KILX5000 

K ILX5010 

KILX5O20 

KILXSOBO 

KILX  5040 

KILX5050 

KILX5060 

KILX5070 

KTLXSOflO 

KILX5090 

KIl Y5100 

KILXSIIO 

K 1 L X 5 I 20 

K ILX5130 

K ILX5140 

K ILX5  150" 

KUX5160 

K ILY  51 70 

KILX51B0 

K 1LX5 190 

K ILX520n 

K TLX5210 

KI LX5220 

KILX5230 

'<ILX5?40 

KtLX5250 

K ILX5760 

KILY5270 

Y II  X5780 

KILX5290 

KILX5A00 

KILX5310 

KtLX5320 

KIl  »5  4 30 

KILX5340 

KIl X5350 

KILX5360 

K ILX  53  70 

K ILX53PO 

K ILX53O0 

K ILX5400 

KIl X5410 

KlLX54rO 

kil^bajo 

K ILX  5440 
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c***  PRINT  rPTinMS  POR  SAMS  £ GUNS 
C***  NO  KlLl 

9010  IF  ( IPRINT.LE.OI  RETURN 

NAM  EL  IST/WEAPC/TIMp, JSIOEfKWFAPtKWEPT.KWUNI ,KWUTVP,XRN,PK 
NAM  EL IST/MEAPD/TIMEt JSIOEtKWEAP.KMEPT.KMUNI  tKWUTYPtXRNt 
I PK,VMK,VUK 

NAMEL  IST/WEAPE/RWQ,R VULfRLl.PHl T,SIQ*SIG*BI 

NAMFL  IST/TARGO/TIME, JSinE,KTARGtKTGTT,KTGTUtKUNIT,VULST,KSTAT 
NAMEL  I ST/TARGE /time tJ SIDE tNTARGtKTGTT, XTGTUfKUNIT.NULST.KST AT 
WR  ITE(N6tMEAPC ) 

WRITE(N6,TARGC ) 

RETURN 
CP**  KILL 

9012  IF  ( IPRINT.LF. 01  RETURN 
VUK  * VUK ILL(KUKILL) 

VWK  - VWK  ILL (KWKI LL ) 

WR  ITE(N6f WEAPO I 

IF  ( IPRINT.GF.2)  WR ITE ( N6, WEA PE ) 

GO  TO  (9016,90ie)t  KAM 
C***  AIRCRAFT  TARGET 
9016  VULST  a VULOST(KULnST) 

KSTAT  * KSTAA 
WR  ITE(N6,TARGn  I 
RETURN 

C***  MISSILE  TARGET 

9018  NULST  * DATMSLILATMSL  tKTGl  ♦ .1  I 
KSTAT  * KSTAA 
WRITE  IN6, TARGE  1 
RETURN 
END 


C*** 

90  16 


C*** 

9018 


C PGM 
C MOC 
C TO 
C 

C PK 
C VUL 
C KUL 
C VAL 
C WWT 
C FFL 
C SAL 
C PHI 
C KUK 
C KWK 
CKILL  F 


SUBROUTINE  K ILL  HE  1 VUL 0, KULO ST, VALTGT,WWT ,RF L ,S AL, PHI T, KUK ILL  , 

1 KWKILLtPK) 

PGM«NXX(NEM1  , L.D.G.  12-5-73  FORTRAN  IV  EBCO 

MOCS.KTxIOO,5A9,550.CVAPK*330,670.CVCGVUL*220,230  VER.3  12-30- 


TO  KUL  SHIPS  WITH  HE 
AND  UPDATE  RECORDS 
PK  * CUM  PROe  OF  KILL 
VULC  a SHIP  VULNERABILITY  CODE  (VNl  » 

KULOSTa  SHIP  UNIT  HIT 
VALTGTa  SUP  UNIT  VALUE 

WWT  a warhead  WT,  lbs  of  he,  KT  for  NUCLEAR 
PEL  a REl  lAB  IL  ITY 
SAL  a SALVO  SI7F 
PHIT  a PROB  OF  HIT 

KUK ILL*  PLATFORM  UNIT  WHOSE  WEAPON  DID  THE  KILL 
KWK  ILL-  WEAPON  TYPE  POINTER  WHICH  DIO  THE  KILL 


NUCLEAR  WARHEADS 


KT  EOR  NUCLEAR 


COMMON /CK ILLF/l VSHP,MVSHP,NVSHP,VULSHPI5,12,1 1 ,NUN,NUNMX, 

1 KSTATEl  100)  ,PKL  ASTI  100)  ,PPRODaOO)  ,CUMWT  ( 100)  , VULOST 1 100  ) , 

2 VUK ILL (100) , VWK ILL C 100 ) , VULF S ,VULF A ,VULFM 
BSHP,  CSHP  a CURVE  FIT  EOR  HE  KILL  BY  SHIP  TYPE 

DIMENSION  BSHPIA),  CSHPIA) 


KILX5650 

KILX5660 

KILX5670 

kilxSabo 

KILX5A90 
KILX5500 
KILX5510 
KILX5520 
KILX5530 
KILX5560 
KILX5550 
KILXF560 
KILX5570 
KILX5580 
K ILX5590 
K ILX5600 
KILX5610 
KILX5620 
KILX5630 
KILX56A0 
KILX5650 
KILX5660 
K ILX5670 
KII  X56fl0 
KILX5690 
KILX5700 
KILX5710 
K ILX5720 
KII X5730 
KILX57A0 


K ILHOOIO 
KILH0020 
KILH0030 
7A  KILHOOAO 
K ILH0050 
KILHnn60 
KILHOOTO 
K ILHOOBO 
KII HOnoO 
KILHOlOO 
K ILHO)  10 
KILH0120 
K n HO  1 30 
K ILHOl AO 
KILW0150 
K ILHO 160 
K ILHOI 70 
KILHOIBO 
K ILHO 190 
K ILHO 200 
KILHO^IO 
K ILH0220 
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r/iTA  PSHP/5625.t  «38e.t  l6C7.t  910./ 
CAT A CSMP/ 2.  17  7,  1.  52l6,2.l7«tl. 721 / 


C***  WAPHFAn  KILL 

1 njM  = ru«WT(KULnST>  ♦ WWT*REL*SAL*PHIT 

rUMWT( KUL3ST ) = CUM 
IV  = VULO  ♦ .01 

PK  = 1.  - EXP(-(CUM/BSHP(IV»)**CSHP(  ivn 
XRK'  = UPN(nUMMY» 

K * KULOST 

CALL  STATF(KSTATF(K1,PKLAST(K)  ,PPROO (K) , PK,XRN) 

IE  ( VULO.GT.  1. n GO  TO  10 

IF  (KSTATFIKI.LF.O. AND.PK.lt. .9)  KSTATE(K)»1 
10  VAL  = PKLAST(K)  ♦ VALTGT 
rVAL  = VAL  - VULOSTIKI 
VULOSTIK)  = VAl 

VUKI  LL  (KUK  ILL  » * VUK  1 1 L ( KUKl  L L)  ♦ OVAL 
VWKILL (KWKILLI  = VWK I LL I KWK I L L>  ♦ OVAL 
PFTURN 

C«««**« 

ENTRY  K ILl  NW( VULO, VULl ,KULOST, VAL  TG T, WWT ,RF L ,S AL  ,S I Q, KUK ILL, 
1 KHKILL,PKSS,PK) 

C*««*$* 

C TO  KILL  SHIPS  WITH  NUCLEAR  WARHEADS 
C SIC  = SIGMA  SQUARED,  ACCURACY  IN  FEET  SQUARED. 

C PKSS  = SINGLE  SHOT  PROB  OF  KILL 
C PK  * CUM  PROB  OF  KILL 

2C  PK  = .0 

IVN  * (inO.*VULl)  ♦ .1 
IF  I IVN.LF.O)  RETURN 
XX  = IVN  / lOOC 

Y = Moni IVN/1CC,1C) 

F » MODI IVN/IC, 1C) 

R * MODI IVN,  10) 

CALL  WRACI XX,Y,F,B,MWT/1000.,RNUC) 

IF  ( RNUC.LE..001)  RETURN 

PWO  = (RNUr*60B0. )**2 

PKSS  = 1.  - FXP (-.5/1 .0A*( SI C/RHQ) ) ) 

K * KULOST 
NSAl  = SAL  ♦ .1 
rn  26  I*  UNSAL 

PK  = 1.  - ( l.-PKl ASTIK) ) ♦ (l.-PKSSPREL) 

XRN  * URN( DUMMY) 

CALL  STATE(KSTATF(K),PKLAST(K) ,PPROn(K),  PK,XRN) 

C**  NC  CPMdleTF  a/c  carrifr  kill 

IF  ( VULO.GT.  1.1)  GO  TO  24 

IF  (KSTATEIK ).LE.O. ANO.PK.lt.. 9)  KSTATE(K)«1 
24  VAL  * PKLAST(K)  • VALTGT 

CVAL  = VAL  - VULOSTIK) 

VULOSTIK)  « VAL 

VUKILl  (KUKILL)  • VUKILLIKUKILD*  OVAL 
VWK ILl (KWKILL)  » VWK I L L I K WK I LL ) ♦ OVAL 
26  CONTINUE 

C**  ADJUST  NUCLEAR  KILL  TO  fOUIV  HF  WEIGHT 
IV  * VULO  ♦ .01 

CUMWTI KULOST)  - BSHP(IV)  * I I-A LOG  I 1 . -PK ) ) •* 1 1 . /C SHP I I V ) ) ) 


I 


KILH0230 
KILH0240 
K IL  H0250 
K 1LH0  260 
KILH0  270 
K ILH02fl0 
KILH0290 
KILH0300 
KILH0310 
K ILH0320 
KILH0330 
KILH0340 
K1LH0350 
KILH0360 
KILH0J70 
K TLH03B0 
KILH0390 
K ILH0400 
KILH0410 
K ILH0420 
K ILH0430 
K 1LH0440 
KILH0450 
KILHO460 
KILH0470 
KILHn4R0 
K ILH0490 
KILM0500 
KILH0510 
K ILHOS/O 
K II  H0S30 
K ILH0540 
K ILH0550 
K 1 1 H0560 
K ILHOSTO 
KILHOSflO 
KILHOSPO 
KTLH0600 
K ILH0610 
KILH0620 
K ILH063n 
KILM0640 
K ILH06  50 
K U M0660 
K ILH()670 
K I LH06flO 
KUH0600 
KiLHOTOn 
KILHOTin 
K ILM07  20 
K ILH07  30 
K ILH0740 
KILH0750 
Kll H0760 
KI LH0770 
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rvr»r»r>r»oooo 


RFTURN 

FNO 


KILH0780 
K ILH0790 


SUBROUTINE  CELSEG ( INFORM , I SNSEG» I TG SEG* I SEGI 
COMMON/STRCON/  JPKt IPK 

COMMON/ INFO/  LFNIFO,LENSFG»MAXSEGtNEXSEGtLSTSEGtLZCSEG 
niMENSION  INFORMdl.ISNSEGIll.ITGSEGd) 

1ST*  INFORM!  ISEG) 

ISENS*IST/IPK 
ITGT*MOn!  1ST,  IPK  I 
IAOO*2 

JPOINT-ITGSFG' ITGTI 
21  IPOINT»INFORMdSEG*IAODl 
LSEG*IPOINT/IPK 
NSEG*MOD( IPO  INT, IPK) 

IF(LSEG.EQ.O)  GO  TO  211 

INFORM!  LSEG^IAOO)*INFORM!LSEG4‘IAOOI/1PK*IPK4NSEG 
IF!NSEG.EO.OI  GO  TO  215 

210  INF0RMINSEG4I AOO)«MCD! INFORM!NSEG»IAOO) (IPKI^LSEG*! PK 
GO  TO  218 

211  IF!NSEC.E0.0  ) GO  TO  212 
JPOINT-MOD! JPOINT, IPK )>NSEG* I PK 
GO  TO  210 

212  JPOINT»C 
GO  TO  218 

215  JP0INT*JP0INT/1PK»1PK»LSEG 

218  IF!  lAOD.EO.l)  GO  TO  219 
ITGSEG! ITGT)»JPOINT 
IA0D*1 

JPQ  INT*ISN SEG!I  SENS) 

GO  TO  21 

219  ISNSFG! ISENS )*JPOINT 
INFORM!  1SEG)»NEXSEG 
NEXSEG*  ISFG 

RETURN 

END 


INFOOOlO 
INF 00020 
IN  FOOD  30 
INFOOOAO 
INFO0050 
INF00060 
INF00070 
INFOOOOO 
INF00090 
INFOO  100 
INFOOl 10 
INF00120 
INF00130 
INFOOIAO 
INFOO 150 
INFOO  160 
INFOOITO 
INFOO 1 80 
INF00190 
1NF00200 
INFOOZIO 
INFOO 220 
INFO0230 
INF00240 
INF00250 
INF00260 
INFQ0270 
INF00280 
INF00290 
INF00300 
INF00310 
INF00320 
INFn0330 


3C 


KSTATE  = 6 - ISTATE 

ST  AT0150 

RF  TURN 

STAT0160 

FNO 

ST  AT0170 

FUNCT  ION  URN  1 IDUM) 

URN 

0010 

real**)  II  I ,Z/7,XXX,PPP 

URN 

0020 

C3MM3N/U)Nl/  III  ,ZZZ,XXX,PPP 

URN 

0030 

ZZZ*I  I I*XXX 

URN 

0040 

J»ZZZ 

URN 

0050 

xxx*zzz-j*J/ppp 

URN 

0060 

IFl XXX. GT.  1. ) GO  TO  1 

URN 

0070 

UPN=XXX 

URN 

0080 

RETURN 

URN 

0090 

END 

URN 

0100 

ELNCTION  XNRNIinUM) 

XNRNOOlO 

TOTAL  *0  . 

XNRN0020 

cn  5 1=  1,  12 

»NRN0030 

total  =T0TAL*URNI  inUM  ) 

XNRN0040 

XNRN=TrTAL-6. 

XNRN0050 

RFTURN 

XNRN0060 

END 

XNRN0070 

SUPROUT INF  ACHTRM(NWTU,KWUfl WSTAT  t TUHX Y ? , I WTUf I NVWTU.M AXWTtI  , 

1 KTU, lTSTAT,LSYST,!TTU,MAXTTUt 

2 OATMSL) 

COMMON/ ECON ST/  VAR ( 15 ) 1 1 MI  SC ( 15) 

COMMON  /FTIME/  TIMF, TIMFA, TIMER, TPEGINtTIMENO,riMAX,rSTFP 
CIMENSION  CATMSl(24,n 

Cl  mens  ION  IWSTATI n , ITSTATI I ) ,IWTU(l ) ,TUWXY/<8,1 ) 

DIMENSION  LSYSTI 1) ,I TTUI 1), INVWTUI 1) 

CIMENSION  JWP(<^)  ,WEP(  5),  J TGI  5)  ,TGTt5) 

CATA  JWP,JTG,WFP,TGT/9*0,  10*0./ 

NAMEI IST/ACMHIT/  TIME,IWPNTU,ITU,I ACM,I TGT,KSTATF 
N6*6 

NLPR= IN  ISCI 3 ) 

ISinE*IMISC(^l 
IPP  = IMI SCI  5) 

INI T=0 

IF(  NWTl/ .EO  .0  ) RETURN 
ro  280  ITU*l,NWTU 
It*tTU+K WU 

IF!  IWSTATI  IU).LE.  0)  GO  TC280 
TIMCPT=TUWXYZI7, ITU) 

IF! T INCPT.GT.TIME)  GO  TO  280 

IWTUl-IWTUIITU) 

ITGT=IWTUl/lOOOOO 
I ACM=Mnri  IWTUl,  10) 


AOMTOO  10 
ACMT0020 
AC.MT0030 
AOmtOOAO 
ACMT0050 
ACMT0060 

ac.mtooto 

ACMTOORO 
AC MT0090 
ACMTOlOO 
AOMTOI 10 
ACMT0120 
AOMTOIBO 
ACMTO  l<tO 
AC«TOl 50 
ACMTO 160 
AC**T0l7n 
AC.MTOl  80 
ATM  T0190 
ACMTOPOO 
AC«T0210 
AC»«T0220 
ACMT0730 
ACMT02^0 
AC««T0250 
ACMT0260 
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1F< T1NCPT.EO.-10C. » GO  TO  250 

ACMT0270 

IF(  ITGT  .EO.CI  GO  TO  27C 

ACMT028O 

IF( ITSTATl ITGTI.LE.O)  GO  TO  250 

ACMT0290 

1WTU2»H»TU(HAXWTU^ITU1 

ACMT0300 

ACMT0310 

IPOH-MCrC IWTUI/ICOO, 1001 

AC,HT0320 

LC0P»1 

ACMT0330 

LJ-1WTU2/10COOOC 

ACMT03^0 

IPPD=MODCLJ, 100) 

ACMT0350 

LJ»LJ/100 

ACMT0360 

1F(  lACN  .EO  .2  ) GO  TO  IOC 

ACMT0370 

IF(  IRP0.GE.IMISC(6))  GO  TO  10 

ACMT0380 

CM  HAS  TOO  LITTLE  RADAR  DETECTION  TO  ACQUIRE  ITS  TGT 

ACHT0390 

KSTATE«-100 

ACMTOAOO 

GO  TO  202 

ACMT0410 

10 

JWPU)*LJ/2 

ACMT0420 

irOL«MOD(  IWTU  1/  10, 100) 

ACMT0A30 

CATMSLI 23,  ICOL )*0A TMSL I 23 , ICOL )♦ 1. 

ACMT04A0 

RANGF>MOD(  IWTU2/  100,10000) 

AC MT 0450 

GO  TO  ICl 

ACMT0460 

100 

IR0W*1RPD 

ACMT0470 

IF(IJ.GT.LOOP)  LOOP«LJ 

ACMTOAR'J 

JWPI A)*0 

ACMT049>> 

RANGE*-  10  . 

ACMT0500 

ICl 

JWPI  1 )»1R0M 

ACMT0510 

JWP(3)*M0D(IWTU2,100) 

ACMT0520 

WFPI  1 )*PANGE*.l 

ACMT0530 

TL  = IABS( INVWTUI  ITU) ) /I  00000 

ACMT0540 

TC»( TINCPT-TBEG1N)*1000. 

ACMT0550 

WEP(2 )»(TC-TL )*.001 

ACMT0560 

JTGI  2)*  ITGT 

ACMT0570 

JTGT*ITCT-KTU 

ACMTOSPO 

lEI  JTGT.GT.O)  GO  TO  102 

AC 970590 

JTGI 1)*1 

AC 970600 

JTG(4)*M0D(LSYST( ITGT) ,100) 

AC9T0610 

GO  TO  105 

ACMT0620 

1C2 

1TTUI*1TTU(JTGT) 

ACMT0630 

JTGI  l)*MaDIITTUl  ,10/2 

AC9T0540 

JTGI  2)»M00(  ITTUIMAXTTU^JTGT)  ,100) 

309706*^0 

IRP-MODI ITTU 1/1000,100) 

AC  9T  0660 

JTGI 3)*IRP 

ArMT0670 

JTGI4)*IRP 

Ar,9T06PO 

1C5 

CONT INUE 

AC9T0690 

CO  200  LJ=l,LnOP 

AC9T0700 

J*l  J 

Ar.9TP710 

CALL  KILIEXI  INIT,ISIDE,JMP,WEP,JTG,TGT,IPR,KSTATE) 

AC9T0720 

IFIKSTATC.GT.O)  I TSTA TI I TGT ) »RSTATE*1000*M00 1 1 TST AT  1 1 TGT ) , 1000) 

Ar.MTOT’O 

IFIKSTATE.NE .0)  GO  TO  200 

AC,9T0  740 

ITSTATl  ITGT  )»-l 

AC9T0750 

CO  TO  201 

AC9T0760 

2 CO 

CONTINUE 

AC9T0770 

2Cl 

IWTUIMA  XWTU+I TU) »I  WTU2-JP1  00000333 

Ar9T07P0 

202 

IFINLPP  .EO.O  ) GO  TO  2 50 

AC9T0790 

IWPNTU*IU 

acmtopoo 

WPrTE(N€,ACMHIT) 

AC9T0810 

il 


ii 

i 


I 

! 
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r 

ACHT0820 

C 

PnsSlftl  E PRIMARY  UNIT  KILLED 

iCNTORSO 

C 

PDSSPLE  int?r;ept  unit  killed 

ACNT08A0 

C 

ACNT(1850 

r 

ACMT0860 

c 

EINAL  DISPOSITION  INTERCEPT  UNIT 

ACMT0870 

c 

Ar*<T0880 

750  IF!  UCM  .EO  .A  1 GO  TO  27C 

ACMT08R0 

IF!  ITGT  .F3  .0  ) GO  TO  2 7C 

ACMTOROO 

IWTLU  ITUI=MOD(IWTUl,10C000) 

ACHTOOIO 

INVWTUI  ITUI  = (tABS(  IN VWTLI I TUII /I  000001  * 1 00000 

ACNT0'J20 

TUWXVZie, ITU)=TIME-TSTEP 

ACMTORTO 

TUWXYZ(7,ITU)=TIMAX 

ACMTOOAO 

GO  TO  280 

ACWTDRSO 

270  IWSTATI  IU)=- 10 

ACNTOOftO 

2P0  CONTINUE 

ACMT0O70 

RETURN 

ACMTONeO 

END 

ACMT0990 

SUBPOUT  INF  TLU2  2I  2T  ,L  ,M » N, KN, Y,X , Z , 1 NDY, 1 NDX, I NY , INX I 

TL  230010 

PGM= 

NU6(CGSM)  VFR.l,  05-12-71.  L.D. GREGORY  3-53300.  FORTRAN 

IV.EBCO 

Tl 230020 

tepee  dimensional  STORAGE  OF  2-WAY  TABLES 

TL73n030 

INX 

AND  INY  = -ItO.^l  ACCORDING  TO  IF  LT,EO,GT 

TABULATED 

interval 

TL  2 JOOAO 

COUPLE  INTERPOLATION  FROM  2-DlMENSION  BORDERED  TABLE 

IN 

ZT(L,M) 

TL23n050 

PORDER  values  MUST  INCREASE. 

TL230060 

IF  MOT  IN  TABULATED  INTERVAL,  USES  NEAREST 

VALUE. 

Tl  230070 

KN  = table  no.  in  3-DIMENSIONAL  ARRAY 

Tl ?3ooeo 

DIMENSION  ZTI  L,  M,  N) 

TL  230090 

INX=0 

Tl  230  TOO 

INY  = 0 

TL230110 

1 

xx=y 

TL  230120 

YY*Y 

TL  ?3ono 

IM  = ( ZTI  1,  l,KNI  ♦ 0.  n 

TL  2301A0 

IN=MOnl IM, 100) 

Tl  2301  FO 

IM= IM/  100 

TL730  160 

YMxZTI IM, 1,KN) 

TL230170 

XN  = ZT(  1,IN,KN) 

TL230180 

3 

IF  I YY-YM ) 2A,  ?A,  20 

TL230190 

2C 

INY  = 1 

Tl 230200 

YY=YM 

TL  230210 

IY  = IM 

Tl 230220 

2A 

IF  (KX-XN)  5,  5,  26 

TL  230230 

26 

INX=1 

Tl.  2302A0 

XX  = XN 

TL  230250 

IX=  IN 

TL230260 

5 

YS*Z  T(  2,  l,KN  1 

TL230270 

XS»ZT(  1,2,KN) 

TL2302R0 

IF  lYY-YS)  26,  3C,  30 

TL  230290 

28 

INY*-l 

TL  2 30 300 

YY  = VS 

TL230310 

IY  = 3 

TL230320 

3C 

IF  I XX-XS ) 32,  2A,  3A 

Tl  230330 

32 

INX=-l 

TL  2303A0 
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XX*X5 

IX»3 

I»2 

CO  10  K*3,1M 
I«l4l 

IF  (7T« I, 1,KN)-VVI  10,  12,  12 

CONTINUE 

YU«7T(  I,  1,KN) 

YL*ZT(  I-  1,  l,KNI 
IY«  1 

INDY*T-1 

1*2 

CO  U K«3,  IN 
I«I^1 

IF  (ZT(  1,  l,KN)-XX)  lA,  16,  16 
CONT  INUF 
XU«ZT(  1,1  ,KN) 

XL*ZT(  1,  I-1,KN» 

IX*I 

INDX*I-1 

AX  * (XU-XX)/(XU-XL) 

AY  * ( YU-YY )/( YU-YL) 

ZLL*  Z T( lY- 1,IX-1,KNI 
ZLU*  ZT(  lY-  1,IX  ,KN) 

ZUL*  ZT(  lY  ,1X-1,KN) 

ZUU=  ZT(I  Y ,I  X ,KN» 

ZL  = AX*ZLL+( 1.0-AXJ*ZLU 
ZU  * AX*ZUL*( 1. C-AX) »2UU 
Z = AY*ZL  ♦I1.0-AY)*ZU 
IF  ( INY)  AO,  A2,  Al 
INOY*  INDY-  1 
GO  TO  A2 
INCY*INOY*l 
IF  ( INX)  AA,  A6,  A5 
INDX=IN0X-1 
GO  TO  A6 
INDX*  INPX41 
RETURN 
FNO 


TL  230350 
TL230360 
TL 230370 
TL230380 
TL230390 
TL230A00 
TL230A10 
TL  230A20 
TL230A30 
TL230AA0 
TL  230A50 
TL230A60 
TL230A70 
TL230A80 
TL  230A90 
TL230500 
TL23n510 
Tl 230520 
TL  230530 
TL2305A0 
TL230550 
TL230560 
Tl  230570 
TL2305R0 
TL230590 
T.  230600 
TL230610 
Tl  230620 
TL230630 
TL2306A0 
Tl 230650 
TL230660 
TL  230670 
TL230680 
TL230690 
TL  230700 
TL7307IO 
TL  230720 
Tl  230730 


SUBROUTINE  WR AO  I DAMSUS ,POQ ,D SKF ,GOAB, MNM ,R AO) 

CIHFNSION  PAI13),  PSI13I,  0AI9),  QS(9) 

OATA  PA  /2. 3700,1. 7805, 1.1712f0. 5890, 0.0250, -0.A69A,-0.flB81, 

1 -l.2055,-l.5l92,-1.8557,-2.l75A,-2.A583,-2.7033/ 

TATA  PS  /I. 8669, 1.3202, 0.7606,0. 2875, -0.1A99, -0.5516, -0.9206, 
1 -1.2166,-1. 5192,-1.8557,-2. 175A, -2 .A503 ,-2.7033/ 

CATA  QA  /2.A667, 1.9092, 1.2136, 0.5A51, 0.0827 ,-0.3137,-0.7226, 

1 -1.1678,-10.0000/ 

CATA  OS  /I. 98AA, l.A382,0.8Al £,0.2973,-0.1712,-0.5806,-1.0529, 
1 -1.5A97,-10.0000/ 

IF  I DAMSUS  .GE.  75.)  GO  TO  90 

AOVN*DAMSUS 
IVN»  1 


WP  ACOOIO 
WR  An0020 
WRAn0030 
wo AOOOAO 
WR Aoonso 
WRAno060 
WP  AD0070 
WR  ADOOBO 
WRAn0090 
WR AOOlOO 
WRADOl  10 
WP ADO  120 
WP  AOOlOO 
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p 


L 


IPT=? 

IFiPCO  .LT..0  l»  GO  TO  2 

IVN  = 2 

C»?.7<i2 

2 IF<GnAP  .LT..OI)  !PT*l 

IFjnSKF  J.T..On  GO  TC  6C 

A = nSKF*  .1 
0=A-  1. 

AP=(  .02/WWWt**(  l./3.l*A 

IF(  IVM.F0.2I  GO  TP  5 

R=(  AP** 2-2.*Q»S0RT( ( 2 .•0-AB**2 ) **2- 

Cn  TO  20 

5 R = ( .02/HWW)**<A*  l.50/nUl.-A 
N*IVN»1 

cn  10  1*1,50 

F=(R-1.*A»/AP 

X=F**M-R 

1F(APS(*).LE..00Cl»  GO  TO  20 

XP=N*F**(  IVN  J/AB 
R=R-X/XP 
10  CONTINUE 

20  ACVN  = CAMSUS  ♦OAALOG  IR  ) 


to 

op  6 5 

I * 2,  1 3 

X 

= I I - 1 ) ♦ 5 

IF 

(AOVN  .LF.  XI 

GO 

65 

rONT  IMUF 

I 

= 13 

70 

IF  I I I 

.3T.  5).  AND.  (I  VN  .E  Q.  2)1 

GO 

IHI 

= I 

ILC 

= 1 - 1 

X 

= ( un  - 1)  * 5 

nvN 

= AOVN  - X 

cn  TO 

(75,78I,IVM 

75 

GO  TO 

< 76,771,187 

76 

Y 

= PSIILO) 

7 

= PSIIHII 

GO  T" 

85 

77 

V 

= PAIItni 

Z 

= pa(ihi) 

cn  TP 

85 

78 

on  Tn 

( 75, RO  ),  IRT 

79 

Y 

* osiiini 

7 

= OSdHIl 

cn  Tn 

P5 

PO 

Y 

= OAIILni 

7 

* OAIIMI) 

85 

SS 

= lY  - Z)  * 0.2 

Y 

= Y - 1 SS  * nvNi 

RAO 

* FXPIYl  * WWW**(1./3.I 

GO  T^ 

55 

50 

RAO 

* 0.0 

55 

PFTURN 

FMn 

WR AOOl^O 
WB  A00150 
WR  ADni60 
WRAOOl 70 
WR AOOIPO 
WR ADOlPO 
WR  An0200 
WP AC0210 
WR  A0O220 
WRA0rt230 
WRAn0  240 

*0**2I)*.5  WPA0n750 

WR  An0260 
WO  A00270 
WB  A002*»0 
WR  Art02R0 
WR ADOaOO 
WR  ADO  310 
WP AC0320 
WR  An0330 
WR An03A0 
WR  An0350 
WRAD0360 
WR  Ar)0370 
WR  AC0  3P0 

TO  70  WR *00300 

WR  AD0400 
WP  Aon^,io 

TO  93  WR  *00^20 

WB  A00A30 
WB  AnOAAO 
WR  AD04,S0 
WR  An0A60 
WR  *00^70 
WR  A004PO 

WP  400400 

WR  400500 
WR  A005  10 
WP  400520 
WP  400530 

WB  400540 
WB  400550 
WB  400550 
WR  400570 
WR  A005P0 
WB  4005Q0 
WP  *00600 
WO  4 006  10 
WP  400620 
WP  *00  630 
WP  400640 
wo  *00660 
WR  400660 
WR  400670 
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SUBRrUTINF  STATUS( NWTU.INVWTU,  KKSEG t I WTUf NE XTU t KMU , I TWSEG, 

1 IWSTAT.MAXWTUtL  SYSWtWGCt !NTVLW»NWG,NWUG, 

2 KTSEG, I TSTAT,KTUf I TTUtI TTSEG, 

3 INFORM, LPRSVS  ) 

COMMON/ECONST/  NSH1P,NA IR ,NSUB,NVSEA,NVALT,POTMIN,PCMrN, 

I AIRCPT, FPNM.HMINfPI ,TWOPI ,I E NV , I SCAN, I PRAO# I M I SC <35 ) 

equivalence  (IM1SC<20>,LRATEJ 

COMMON  /FTIME/  TIME,TIMF A,TIMEB,TBEGIN,T1MEN0,TIMAX,TSTEP 
DIMENSION  ITSTAK  l),INVWTU(l)  , KWSEG(l),  I WTU 1 1 » , ITMSEGI I » , 
I IWSTATI 1 ), KTSEG I 1), inform (1 ) ,LBRSYS(1) ,LSYSM(1I 

2.  ITTUI  n,  ITTSEGI  1 ) tWGC  ( St 6t  1 ) 1 1 NTVLWIl  I ,NWUG(1  ) 

DIMENSION  KSI0E<2I,LPGRP(18,2),KEYSYS(8)«  KUNITI50,2) 

DATA  KEYSYS/20, 12, 22, 23 « 33 , 16»2A,43 / 

DATA  NKFY,KPG/8, 3/ 

EQUIVALENCE  I IM  I SC  I A)  , I SIDE  ) 

ITIME»(  TIME-TREGIN  )*10C0. 

NUNIT*K  VU+’NWTU 
CO  38C  IU»1,NUNIT 
ISTAT=IWSTAT( IU) 

1TU=IU-KWU 

IF( ISTATI  300,380,330 
3C0  1STAT*IABS( ISTAT  ) 

IF(  ISTAT. EO.  1 I GO  TO  350 
IF(  ISTAT. GT.2000COOOOOI  GO  TO  355 
IF!  ISTAT. EO.  10)  GO  TO  340 
IF( ISTAT.lt. 100000)  GO  TO  310 
ISB*MnDILSYSH(IU)/lCO, 10000)-2 
ICAR=LPRSYS( ISB )/ 1000000 
IF(  IWSTATI  ICAR ) .GT  .0)  GO  TO  302 
3Cl  LBRSYSI  ISB)*-LBRSYS(  ISB  ) 

IWSTATI  IU)»  -2100000000 
GO  TO  355 

302  L INF=ISTAT/1C000C 

JTIMF=MCOI ISTAT, 100000) 

LS*LPRSYSIL INF) 

IFILS.EQ.O  ) GO  TO  301 
I FI  LS/l  COnOOO.EO.O)  GO  TO  355 
KSB=MnDILSYSWI ICAR )/100, 10000)-2 
IFILPRSYSIKSBI.GT.ITIMEAIOO)  GO  TO  355 
LPRSYSIKSP)*! IT  IMF ♦LR ATE)* 100 
LBRSYSI LINE )=LS-1C0000C 
IWSTATI  IU)=-IJTIMF  + ITIME) 

GO  TP  355 

310  IFI  ISTAT, GT.ITIMF  ) GO  TO  355 
IWSTATI  IU)«1 
GO  TO  355 

130  IWSTATI IU)=M0D< I STAT, 1000) 

IFI  IU.LF.KMU)  go  TO  375 

IFIMOni  IWTUI ITU  ),  10)  .FO.  4)  GO  TO  380 

ITGT*Mpni IWTUI ITU)/10000C, 1000) 

IFI  ITSTATI  ITGT)  .LF  .0)  GO  TO  345 
IFI  ITGT.LF.KTU)  GO  TO  3fiO 
JTU«ITGT-KTU 

JTGT»MOni ITTUIJTU)/100C0C,1000) 


STATOOlO 
STAT0020 
STATOOlO 
ST AT0040 
ST AT0050 
ST ATOOfcO 
STAT0070 
ST AT0080 
STATOOOO 
ST ATOlOO 
ST ATOllO 
ST AT0120 
ST ATOllO 
ST AT0140 
STAT0150 
ST AT0160 
ST  AT0170 
ST  ATOIPO 
ST ATOlOO 
ST AT0200 
STAT0210 
ST AT0220 
ST AT0230 
ST AT0240 
ST  AT0250 
ST  AT0260 
ST AT0270 
ST  AT02B0 
ST AT0290 
ST  ATOino 
ST  AT0310 
ST  AT0320 
ST AT0330 
ST  AT0340 
ST  AT0350 
ST  ATOIf-O 
ST  AT0370 
ST  ATOiPO 
ST  AT0390 
ST  ATOAOO 
ST  AT04  10 
ST AT0420 
ST  ATn430 
ST  AT0440 
ST  AT0450 
ST  4T0460 
ST AT0470 
ST AT04R0 
ST  AT04Q0 
ST  AT0500 
ST  AT0510 
ST  AT0520 
ST  AT0530 
ST AT0540 
ST  AT0550 


I 


I 

i 
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IF(  IV<STAT(JTGTn  ?^5,3<i5,3  8C 

IF«MOO(  IWTUdTUJ  tlO)  , F 0.  » GO  TO  353 

LU=MnO<  IWTU(MAXWTU»lTUJt  100) 

IS3=MnP(L  SYSW(LU)/ 100,10000) 

L INF*MOn(LBRSYS« I SR-?) /ICC, I 0000) 

IF(LINE)  350,3Ae,3A6 
LS*LflRSYS«LlNF) 

IFILS.FC.O)  go  to  350 
L PR  SY  S(  L INF)  =LS>  1000000 
GO  TP  350 
IWSTATI lU) =1 
KROW=  tWTU(NAXWTU^I TU) 

K5=KRnw/10000000C 

KRow=Hnr(Kfirw/ loooooo, loo) 

ISS=ISP-3 

ISA=L  SYSW(LU)/10COOOO 
on  3A<?  l=ISA,  ISS 
L5=LPRSYS( f ) 

IF(MDO( LS/ ICO,  IOC)  .NE.  KROW)  GO  TO  3A9 

L PR  SYS  I I )=SOn(LS,  1 000000  )♦■«$*  100COOO+ a S/1  00000000  >*100000000 
cn  TO  350 
'•ONTINUF 
ihstati iu)=o 

IF(  lU.LF.KWU)  GO  TO  355 
IWTU( ITU)=NFXTU 
NFXTU= 1 TU 
INVWTUI  !TU)  = 0 
GO  TO  360 

ISEr-=KWSFG(  lU  )/  10000 

1F(  ISFC.FO.O)  GO  TO  36C 

IF( INFORM! lSFG+7 ).E0.0)  GO  TO  357 

INFORM!  TSEG*A)=0 

INFORM!  TSFG*5  ) = 0 

INFORM!  ISFG*5)  = 0 

GO  TO  35R 

fail  CELSEGI  INF0RM,KWSFG,ITTSEG,I  SE3) 

ISFG^MOni INFORM! ISFG+1), lOOOO) 

GO  TO  35t 

K SEG=  ITWSFG! lU) 

ISFG=KSFC/ 10000 

IF!  ISFG  .FO.O)  GO  TO  3PC 

IHORI)  = INFORM!  ISEG+6) 

IF!  IWOPE.EO.O I GO  TO  370 
I INF=  IWORO/ lOOOOC 

L PR  SYS! L INF l^LBRSYS ! L 1 NF )* 1 00000000 
fall  CFISEGI  INFORM, KTSEG, ITWSFG, ISEG) 

1SFG=M0CI  INFORM!  ISFG*2),  10000) 

GO  TO  365 
kSTATF= ISTAT/IOOC 

1S=LSYSW! lU) 
iSP.=Mrjn<  IS/ 100,  icooo) 

IF(  ISR.EO.O)  GO  TO  380 
MASK  =LRRSYSI  ISR  ) 


ST  ATC)560 
STAT0570 
ST  AT0580 
ST  AT0590 
ST  AT0600 
ST AT0610 
ST  AT0620 
ST  AT0630 
ST  AT06A0 
ST AT0650 
ST AT0660 
ST AT0670 
ST AT06R0 
ST  AT0690 
ST AT0700 
ST  AT0710 
ST  AT0720 
ST AT0730 
STAT07A0 
ST  AT0750 
ST AT0760 
ST  AT0770 
ST  ATOTflO 
ST  AT07O0 
STATOPOO 
STATorio 
ST ATn820 
ST  ATOR30 
ST  ATOPAO 
ST  ATOaSO 
ST  AT0fl6n 
ST  AT0H70 
ST  ATORBO 
ST  AT0R90 
STAT0900 
ST  ATOoiO 
ST  AT0920 
ST  ATO«  30 
STATORAO 
ST  AT0950 
ST AT0q60 

statotto 

ST  ATO"flO 
ST  ATOPOO 
ST  AT  1000 
ST  ATI  010 
ST  AT1023 
ST AT1030 
ST  AT lOAO 
ST  AT  1050 
ST  AT  1060 
ST AT1070 
ST  AT1080 
ST  ATI OOO 
ST  AT  1 100 
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'•MTCMIlPP' 


KW=Mrn<  MASK,  IC) 

IF<KW.F0.2)  GO  TO  380 
IWSTAT(  IU)=ISTAT 

316  IF(KSTATF.E0.0  .OP.  KSTATE.GE.5I  GO  TO  380 

3715  ISA=I S/IOOOOOO 
ISB*ISB-3 
OC  379  I<ISA,I$B 
KSYS=MnD<LBRSYS(I ),100) 

IF(KSYS.FO.ll)  GO  TO  378 
IF(KSYS  .E0.21)  GO  TO  378 
IF(KSTATE.GF.A)  GO  TO  37S 
1F(KSYS  .EQ.  22»  30  TO  378 
IF(KSTATF.GF.3)  GO  TO  379 
IF(KSYS.F0.A3J  GO  TO  378 
IF(KSYS .FO. 12)  GO  TO  378 
IF(KSYS.F0.20)  GO  TO  378 
GO  TO  379 
378  LPRSY  S(  11=0 
219  CONTINUE 
280  CONTINUE 

PENOFVOUS  LOGIC 

IFI IMISCI ISI0E+12).E0.0)  GO  TO  650 
IF( INTVLWI  19) .NE  .01  GO  TO  600 
NPG*0 
JKFY=0 

CO  590  IG=l,NWG 
IKFY  = JKFY*  1 
K=NWUG(  IG  I 
IUA=K /lOO 

IU6=IUA4MnO(K, 100)-1 
or  585  K=1,MKFY 
KEY  = KEYSYS(K  ) 

CO  580  IU=IUA,IUB 

1S=LSYSW(  IU)/100 

IFI  IS  .FO.O  ) GO  TO  5eC 

isp=Mon(  IS,  10000-2 

ISA*IS/10000 

on  590  1 = 1 SA, I SB 

LS=LBRSYS( I ) 

KSYS=MOD(LS, 100) 

IFIKSYS.NE  .KFY)  GO  TO  590 
JKFY=JKEY+-l 
KUNITI JKFY,  IS  lOE  )»IU 
GO  TO  580 
590  CONTINUE 
580  CONTINUE 

IFIJKEY.GF  .IKFY)  GO  TO  5 86 

585  CONTINUE 

IMTVl  W(  IG+  IR)*-1 
GO  TO  590 

586  IF(KFY.GT.KPG)  go  TO  587 
NPG=NPGt  I 
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STAT  1 1 10 
STAT1120 
9TAT1 130 
ST  AT  11 90 
ST AT1150 
ST  AT  1160 
STAT 1170 
STAT1180 
ST  ATI  190 
STAT1200 
ST  AT1210 
ST  AT1220 
STAT1230 
ST  AT1290 
STAT1250 
ST AT1260 
ST AT1270 
ST  AT1280 
ST  AT  1290 
ST  AT  1 300 
STAT1310 
STAT 1320 
ST AT1330 
ST  ATI  390 
ST  AT1350 
ST  AT  1360 
STAT1370 
ST  AT  1380 
STAT1390 
STAT19  0 
ST  AT1910 
ST  AT1920 
ST  AT  1930 
STAT  1990 
ST  AT  1950 
ST  AT1960 
ST  AT1970 
STAT 1980 
ST  AT  14,90 
ST  AT  1 500 
STAT 1510 
ST AT1520 
ST  AT1530 
ST  ATI  590 
ST  AT  1550 
ST  AT  1 5f,0 
ST  AT  1570 
ST  AT  1580 
ST  ATlSf'O 
ST  ATI  600 
ST  AT1610 
STAT1620 
ST  AT  1630 
ST  AT  1690 
ST  AT  1650 


! 


) 

! 

i 


I 

i 


LPGRPINPG, IS lOF )*1G 

ST  AT1660 

587 

INTVLWI  IG+18  )=KFY* 10000+ I KE Y* 1 00* JKE Y 

STAT167n 

550 

CON T INI' E 

ST  ATl6flO 

KSIDFI  ISIDFI.NPG 

ST  AT  1690 
ST  AT  1700 

6 CO 

NPG=KSICF( ISIOE) 

ST AT1710 

IFINPGI  650,625,605 

ST AT1720 

6C5 

rn  610  I»1,NPG 

ST  AT1730 

IG=LPGPP(  I,  ISIOE) 

STAT17A0 

IF( INTVLWI  IG  + lBI.NF.l)  GO  TO  625 

ST  AT  1750 

6 10 

CONTINUE 

STAT1760 

KSIOEI ISIOE )*-l 

STAT1770 

NPG*- 1 

ST  AT17B0 

625 

CO  6A0  IG=  1,NWG 

ST  ATI  790 

KFY*!NTVLW(  IG  + 18) 

ST  ATIBOO 

IFIKEY.EO.ll  r,0  TO  6AC 

ST  AT1810 

IFINPG.lt. 0)  GO  TO  637 

ST  AT  1820 

IF(KEV.LT.O)  go  TO  64C 

STATlfl30 

LEAVE=0 

ST ATIBAO 

IL  IVF*0 

STAT1B50 

JKFV=MOD(KFY,  100) 

ST ATia60 

IKEY=MOn(KEY/  100, 100) 

ST  ATI  870 

KFY*KEY/10000 

ST ATIBBO 

no  635  K=IKEY,JKFY 

STAT1890 

IU=KUN1T(K, ISIOE) 

STAT1900 

IF!  IWSTATI lU  ) ) 53A,  635,627 

ST AT1910 

627 

IS«L  SYShnU)/100 

ST  AT1920 

iSB=Mnn(  IS,  ioooo)-3 

ST ATl93n 

ISA=IS/10000 

ST  AT 19A0 

CO  63C  I=ISA, ISB 

STAT1950 

LS=LBRSYS( I ) 

ST  AT  1960 

KSYS=Mnn(LS,  100) 

ST  AT  1970 

IFIKSVS.NE.KFY)  GO  TO  630 

ST ATI980 

1F)KSYS.FQ.33)  L S=LRR SYS (1+ 1 ) 

ST  ATl99n 

IFIMOOIIS/ICOOOOC,  lOO.GT.O)  GO  TO  6A0 

ST  AT2000 

6 30 

FONT  INU  F 

ST  AT2010 

LFAVF»L  FAVE+  1 

ST  AT2020 

6?4 

IL  IVF  = ILI VF+l 

ST AT2030 

625 

CONTINUF 

STAT20A0 

IF(  IL  IVE.FO .0  ) GO  TO  637 

ST  AT205n 

IF(LEAVE.FO.O)  go  to  6A0 

ST  AT2060 

637 

INTVl  W(  IG+lfl  )*l 

ST  AT2070 

LFG*IABS(  INTVLWIIG)) 

ST  AT70B0 

INTVLWI  IG) «10+LFG 

STAT2090 

wrci  1, 5,  IG)»INTVLWI 37) 

ST  AT2100 

WGCI  1,6,  1G)  = INTVLWI3P) 

ST  AT21 10 

6A0 

FONT  INUE 

ST  AT2120 
STAT2130 

650 

CONTINUE 

ST  AT21 AO 

R FTURN 

ST  AT2  150 

FK'O 

STAT2160 

^URonuT  IMF  USTA  TIKWUfl  WSTATfl  TWSEGtNMTU.KHUK. 


IIST  AOOlO 


I 


1 NTTUf INVTTUt I TTU, 

2 INFORM) 

COMMON  /FTTME/  T IMFt T IMF  A, TI MEB. TBEG IN , TI MFND tT I MA X ,TSTF P 
COMMON  /WORK/  KSTATI50C) 

CIMFNSION  KWUK(4,1) 

CIMFNSION  IWSTATI  1 ) t I TWSEG  ( 1 ) ,I  NFORMIl ) 1 1 NVTTU  1 1 ) t ITTUd) 
NUNIT=K WU+NWTU 
CO  310  I=l,NUNIT 
310  KSTATI I ) = 0 

IF(NTTO.EO.O)  GO  TO  35C 

CO  340  ITU*1,NTTU 

IF(  INVTTUI  ITUI.EO.OI  GO  TO  340 

ITGT*M0C(  ITTUI  1TU)/10000C,1000) 

IF! ITGT.FO.C)  GO  TO  340 
KSTATI  ITGT)=KSTAT( ITGT)+1 
340  CONTINUE 
350  CO  380  IU=1,NUNIT 
ISTAT*IWSTAT(  IUI 
IF!  ISTAT.LE.O ) GO  TO  378 
KSTATE=ISTAT/1000 
NGAGE=KSTATI lU) 

IFINGAGE  .EO.C  ) GO  TO  355 
ASSIGN  368  TO  I SWT 
ASSIGN  368  TO  KSWT 
GO  TO  358 

355  ASSIGN  366  TO  ISWT 
ASSIGN  364  TO  KSWT 
ISTAT=1 

358  KSEG=ITWSFG( IU) 

ISFG=KSFG/  10000 
3<0  IF!  ISFG.FQ.O  ) GO  TO  370 

IF!  INFORM!  ISFG*7 » ) 363,363,  362 
3<2  NGAGF=NCAGE*  I 

GC  TP  ISWT, I 368,  366) 

363  GO  TO  KSWT,! 360,364) 

364  IF( INFORM! ISEG+5))  368,368,365 

365  ISTAT=2 

366  ASSIGN  368  TO  ISWT 
ASSIGN  368  TO  KSWT 

3  68  ISEG=MOn! INFORM!  ISFG  + 2)  , 10000) 

GO  TO  360 

370  IFINGAGE. GT. 0 ) I ST AT =NGAGE^2 
C 

C PnSSIRl  E UNIT  OETFCTION  LOSS 

C 

IWSTA  T!  IU)*I  STA  T 
378  IF!  lU.CT.KWU)  GO  TO  380 
IF!  ISTAT  I 3784,3  786,  3782 
3782  JSTATF*KWUK!4,IU)/100 

IFIKSTATF.GT.O)  JSTATF»KSTATE 

I stat*i stat*jstate*  loo 
GO  to  3786 
3784  ISTAT»-I 
3786  KWUK ! 4,  ID  ) = I STAT 
300  CONTINUE 


UST A0020 
USTA0030 
UST A0040 
UST A0050 
UST A0060 
UST A0070 
UST A0080 
UST AOOoo 
USTAOlOO 
USTAOl 10 
USTA0120 
UST  AO 1 30 
UST  AO  140 
UST AO  150 
USTA0160 
USTA0170 
USTAOl 80 
UST A0160 
UST  A0200 
UST A0210 
USTA0220 
UST AO  2 30 
USTA0240 
UST A0250 
UST  A0260 
UST A0270 
UST AO  280 
UST A0200 
USTA0300 
USTA0310 
US  T A0320 
I'ST  A0330 
UST  A0340 
UST A0350 
USTA0360 
UST  An370 
UST  A0380 
UST  A03'^0 
UST  A0400 
IJS  T A04  10 
UST A0420 
UST A043n 
US  T An440 
US  T A04Sn 
UST  A0460 
USTA  0470 
UST  A0480 
US  TA0490 

UST Aosno 
USTA05I0 
UST  A0S20 
UST  A0530 
UST  AO  540 
US  T AO  550 
UST A0560 
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RFTUPN 

E^'D 


USTa0570 

USTftOSflO 


SUBPrUT  INF  SNAP  (NWUiNWTUfLSYSWtLBRSVStKWSEGfKTSEG,  IKFCR^'t 

1 IWSTAT,  IWTU«INVWTU,nUWXYZtHAXrUtNAMUtNAMS  tWXYZ  t 

2 TXY2,  TC’TXYZ.NTU) 

CIMFNSION  LSYSWI  1 ) , LBR  SYS  ( I » , KMSEG  ( I J tKTSEG(l)  t INFORM!  1), 

1 IWSTATI  I »,  I ViTUI  1 ) flNVWTUI  1)  ,TUWXY2(8,l» 

2,  TXY2( 50, 7I,NAMU( 50t2»  tNAMS(2tl» 

3,  WXY2(5C,l),TUTXYZ(8,n 

COMMPN/ECONST/  VAR ( 15»,1MISC(35) 

CPMMrN/STRCDN/  JPK.IPK 

COMMON/OEV  ICF/  N l,N2,N3,NA,N5,N6,N7,N8,N'>,N10,Nl  I ,N12 
COMMON  /FTIMF/  TIMF, TIMFA, TIMER, TBEGIN,TIMENO,TImaX,TSTFP 
equivalence  ( IMISCUI.ISIDE  » 

DATA  IPLU,IRFn/*  PLUS'  REO'/ 

NS IDF=  IBLU 

IF!  IS  IDE. EO. 2)  NSIDExIPED 
IPR  = IM  ISCI 7 J 
CALI  PAGE 

JTIMF  = I TlMF-TflrSI  N)*l  OCO. 

IF| IPR.LT.3I  GO  TO  300 
WRITF(N6,610C)  T 1 mf , j T I ME , I SI OE 

6100  FnRMATI///'  INFORMATION  SNAPSHOT,  TI MF* • , EB. 4 , I 7 , • SIDE*', 12/  ) 
WR ITF(N6,6l  10) 

6110  FORMAT!'  SYSTEMS  DATA'/) 

CO  no  1*1, NWU 


1 10 
6111 
2C0 


6210 


21 


2 10 
6211 
6212 


K=LSYSW!  I ) 

IFIK.FO.O)  GO  TO  lie 
1SA=K/ 1000000 

iSB=Mnn!K/ 100, locoo) 

WP ITE!N6,61 1 I I I ,K,!LPRSYS!L) ,L*I SA, I SP) 
CONT INUF 

FORMAT!  IX,  IA,3X,  101  12/1BX,10I 121  ) 

IF!  IPR.LT.A)  GO  TO  300 
WP ITF!N6, 6100)  T I M E , J T I MF , I SI OE 
WP ITF!N6,6210) 

FORMAT!'  INFORMATION  SEGMENT  DATA'/) 

CO  210  1=1, NWU 
K=KWSFG!  I ) 

lEIK.FC.O)  CO  TO  210 
ISFG  = K/  IPK 
JSFC*  ISFG  + 7 

WR  ITFIN6,621  I ) I , K , ! I NFORM! L ) , L*I SEG,JSEGI 
ISEG=MOr!  INFORM!  ISFG^l),  IPK) 

IF! ISEC.FO.C)  GO  TO  210 
JSEG*  ISFC+T 

WPITF!M6,  6212)  ! INF-^RMIL  ),L»I  SFG,JSFG) 

GO  TO  21 
CONT INUF 

FORMAT!  1X,IA,3X,!12,5X,8I  12) 

FORMAT!  25X,fl  I 12) 

IF! NWTU.EO.O)  GO  TO  AlC 


SN  APOOlO 
SN  AP0020 
SN  AP0030 
SN  APOOAO 
SNAP0050 
SNAP0060 
SNA00070 
SNAPOOBO 
SN AP0090 
SNAPOlOO 
SNAPOl 10 
SNAPO  120 
SNAP0130 
SN APOIAO 
SNAP0150 
SN  APOl  60 
SN  APOl 70 
SN  A’  01  90 
SNAPOlOO 
SNAP0200 
SMAP0210 
SN  AP0220 
SN AP023n 
SN  APO2A0 
SNAP0250 
SNAP0260 
SN  AP0  2 70 
SN  AP0290 
SN  APr)2qO 
SNAPOJOO 
SNAP0310 
SNAP0320 
SN  APO  3 JO 
SNAP03A0 
SN  AP035O 
SNAPn360 
SN AP0370 
SNAP0390 
SNAP03P0 
SN  APOAOO 
SN  APOA I 0 
SNAP0A20 
SN  AP0A30 
SMAP04A0 
SNAP0A5O 
SNAP0460 
SN  AP0470 
SNAPOAflO 
SN  APOAPO 
SN AP0500 


1 


j 
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’00  CrNTlNUF 

WPITFIN't,  6100)  TIMF,  JTIMF,  I SIDE 
WP ITFJN6, 6310  ) NSinE 

6310  FORMAK  • TEMPORARY  UNIT  DATA  FOR*,A<»/) 

WP  1TF(N6,6313) 

cn  310  I=1,NWTU 
K = INVWTU(  I ) 

IF(K.EC.O)  go  to  31C 
ITU=  T+N WU 
IWTU1  = IVTU( I ) 
iAC*Mnni  iwTui,  10) 

J^I+maxTU 
1WTU2=IWTU( J ) 

LU=Mno( iwTu?,ion) 

IF(  lAC  .FO.A)  GO  TO  30A 
NAM  1=NAMIMLU,  1) 

NAM2=NAMU{ LU, 2) 

CO  TO  305 

3CA  J=MOCI  IWTUl/lOCO,  100) 

NAM1=NAMS(  li J ) 

NAM2=NAMS( 2, J) 

3C5  ITr.T  = IWTIJl/lCCOOC 
wx=Tuwxyz(  1,1) 

UY*TUMXYZ( 2,  I ) 

V«Z  = TUWXYZ(  3,1  ) 

VX=TUW*YZ(A,I  ) 

VY=Tl)WXYZ(5,  I) 

IF!  ITGT  .FO.C)  GO  TO  3C6 
IF(  ITGT  .GT.NTU)  GO  TO  307 
CXsTXYZ ( ITGT , 2 )-WX 
CY  = TXYZ(  ITGT,  ’)-WY 
CO  TO  300 

3C6  ICAR  =MOn(  I WTU2/lGC,l  OC) 

IF!  IC  AP.FO.C)  ICAP=LU 
nx=WXYZ ( ICAR, 2)-WX 
CY=WXY/( ICAR , 3)-WV 
rn  TO  308 
307  L=ITGT-NTU 

CX  = TUTXY7  ( l,L  )-WX 
nY  = TUTXYZ ( 2,L  )-WY 
3C8  GP=SORT(nXMOX+OY*DY) 

V=SOP  T( VX*VX  + VY*VY) 

WP.ITF(N6,63l  I ) ITU,NAMl,NAM2,  I WSTATI  I TU)  ,LU,  ITGT  ,W  X ,W  Y , WZ  , V , GP  , 

I (TUWXYZIL,! ) ,L»6,8) 

IF(  IPR  .LT.2)  GO  TO  310 
WRITF(M6,6312)  I H TU 1 , 1 WTU2  , K 
110  rONTINUF 

6311  FORMAT!  IX , I 3 , • = • , 2 A^ , I 3 , I 6, I 6 , 3X , 8G 1 2. 5 ) 

6312  FORMAT!  5X,  • IWTIJ»*,I  12, ',  *,1  12,  • I N VMTU*  • , I 1 2 ) 

6113  FORMAT!  IX, 'UNIT  NAME  STAT  ORIGIN  TGTU*  , 6X,'X,NM*, 

1 8X,'Y,NM*,8X,'Z,NM‘,6X,*VXY,KT*,7X,'RANGE‘  ,7X,*VZ,KT*  , 

2 5X, •TINCEPT*,5X,'TVFCTOR*/) 

AlO  IF! IPR.LT. A)  RFTUPN 

C gall  PACF 

WPITF!N6,6100)  T I ME, J TI ME , 1 SI OE 


SNAP05IO 
SN AP0520 
SN AP0530 
SN AP05A0 
SN AP0550 
SNAP0560 
SNAP0570 
SM AP0580 
SNAP05P0 
SN  AP06nO 
SNAP0610 
SN AD0620 
SNAPOAIO 
SNAD06A0 
SN  AP06S0 
SNAP0660 
SN  AO0670 
SN AP06R0 
SN AP0600 
SNAOO  700 
SNAP07  to 
SN  AP0  7 20 
SN AP3710 
SM  AP0  7AO 
SN  AP0  750 
SN  A^()760 
SMAO0770 
SN AP07R0 
SN AP0790 
SN  AOOROO 
SN  AP081 0 
SN  AP0820 
SN  AP  08’ 0 
SNAPOrtAO 
SNAPORSO 
SM  Al>0R60 
SN4P0870 
SN  APORRO 
SN  APORflO 
SNAOOQOO 
SN APOO  1 0 
SN  AP09  20 
SNAPORin 
S'*'  Ai>  np/,n 
SN  AP0P50 
SN  APOPfO 
S^APOP  70 
SN  APOPBO 
SN  APOPNO 
S»'  API  100 
SNAP) 010 
SN  4P 1 120 
SNAP! 030 
SNAPIOAO 
SN  AP 1050 
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WR  ITf  (N6,6<i  10  1 

6«10  FORMAT!  • UNIT  STATUS  ft  NO  TGTSFG  CODES*/) 
JWU=NWU*NWTU 

WR 1TF(N6, 6ftl I ) ( I, IWSTftTI I ) ,KTSEG(I ) fl»l t JWU) 
6^11  FORMAT!  I 51 2X, 13,  • = ’, 21 10) )) 

RFTURN 

END 


CPLftT 


SNAPlOf.0 
SNAP1070 
SNAPlOflO 
SNftPlOOO 
SNAPllOO 
SNAPl  1 10 
SMftRll20 


SUPROUTIMF  SUMOUTIKPftS)  SUM 

r PGM=NXX!NFM)  l.D.G.  12-17-73  FORTRAN  IV  FBCD  SUM 

C TO  I.INITIALIZ  F 2. SUMMARIZE  3. PRINT  SUM 

C AT  FNO  OF  FACH  MONTE  CARLO  PASS  SUM 

CKULF  SUM 

COMMON/CK  ILLF/L VSHP,MVSHP,NVSHP,VULSHP(5,l2,l)  ,NUN,NUNMX,  SUM 

1 KSTATF(100),PKLAST(100) fPPRODIlOO) .CUMHT(IOO) tVULrSTClOO) , SUM 

2 VUK ILL ( 100) , VWKIl L ( IOC) , VULF StVULFA.VULFM  SUM 

C***  SUM 

rOMMON/OFVlCF/  Nl,N2,N3,N4,N5,N6,N7,N8,N9,N10,Nll,M2  SUM 

rOMMON/INOUU/  IPR ! 16),JPAR( 16),  P AR ( I 5 ) , L ABEL  SUM 

rOMMON/INOUT/NL  INF,NPAGE,0UMA(35),  NCOOEIIO)  SUM 

1,I0UMP!72),  NFLAG,  NFLAG2  SUM 

CNAVIG  SUM 

roMMON/CNAVIG/  NGMX,BE,0F,RE,RF,  SUM 

1 NPG,PA,BB,BC,Rn,KBGN(10),KBGK(l8)  ,BGCI  8 ,6 , 18  ) ,NBU I IP ) , SUM 

2 NRG,R  A,R  0,RC  ,«0,KRGM  18)  ,KRGK(  18)  tRGCI  8 ,6 , 18  ) . NRU  ( 18  ) , SUM 

3 ttime.numx,  sum 

A KPL,K8UK  (4, 50  ) ,8RFHA,50)  ,RXYZ  (5Q»7)  ,NAMBU<50  t2  ) , PV  ( 50 , 3 ) , SUM 

5 KRU,KRUKl<V,50),RPFL(4,50)  ,RXYZI50,7)  ,NAMRU(50,2),RVI50,R)  S'Jm 

cplat  vs  systfms  islrsystfms)  sum 

CnMMnN/CPLAT/NPP,Nf3PMX,NflSS,N8SSMX,NBSPP«  15)  ,NBPWS(95  ) , SUM 

1 MAMpP! 2,  15),KPPT( 15) ,NABSSI2f95) ,KH S T (45 ) ,KB PXS  I A5 , 1 5 ) , SUM 

2 PPX1!12,15),  SUM 

3 NRP,NRPMX,NRSS,NRSSMX,NRSPP( 15) ,NRPWS (45) , SUM 

4 NAMPP!  p,  18I,KRPT(  15)  ,NARSS(2,45)  ,KRST(45)  ,KRPXS(45,15I  , SU** 

5 PPX1(12,15)  SUM 

CSURM  SUM 

rnMMo*'/r  summ/  sumwt(  loo)  ,sumlst(  loo)  ,sumvuk(ioo)  ,sumvwk!  loo  i sum 

CFORMATS  SUM 

2CC0  FORM  AT!6X,  • SEAT  IPF  - NAVAL  ENGAGEMFNT  MODEL  -*,'  SUMMARY  AFTFSJM 
IR  RANOOMIZEO  PASS  NO.*',  13//  6X , A4,*  SUMMARY  BY  UNITS'/  SUM 

2 tX,*UNIT  NAME* ,6X, 'TYPF  GRUP  STAT  PK  FHE-LPS*  , SUM 

3 4»,*VALU  LOST  VALU  KILLED*,  5X,*AVG  FHF*,6X,*AVG  LOST',  SUM 

4 ?X, * AVr  K ILLEO • / ) SUM 

2002  F0RMAT!3X,I6,*.*,2X,2A4,1X,  315,  F6.3,  F8.0  ,5 ( 1 X , F 12 .3 ) ) SUM 

2CC4  FnBMATI IHO, 5X, • TOTAL  *A4, 'VALUE  LOST  THIS  P ASS= * , G 1 3 .6 / SUM 

I 6X, 'TOTAL  AVFRAGF  VALUE  LOST  IN  FIRST  *,I3,'  PASSFS=',SUM 


CCATA 


C13.6) 

DATA  PLU,REn/*BLU  *,*RFO  */ 

DATA  RnTATF,RAn/  30,,  ,0174533/ 
NSYTMX  * NRSSMX  ♦ NPSSMX 
NSYT  * NPSS  NPSS 
IF  (KPAS.GT.1)  go  TO  12 
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r**« 

IMT  lAl  17E 

SU“ 

0460 

m 10  I=ltNUNMX 

SUM 

0470 

SUMWTl I ) = 0. 

SUM 

0480 

SUMLSK  1 ) = 0. 

SUM 

0490 

SUMVUK  ( I i = 0. 

SUM 

0500 

10 

SUM  VVIK  ( 1 ) = 0. 

SUM 

0510 

12 

CONT INUE 

SUM 

0520 

C*** 

CUM  C TPANSEft 

SUM 

0530 

20 

rn  22  1=1, NUN 

SUM 

0540 

SUMWT<  I)  = SUMWTdl  ♦ CUMWT(I) 

SUM 

0550 

SUMISTII)  = SUMLSTIl)  ♦ VULOSH  1) 

SUM 

0560 

22 

SUMVUK(I)  = SUMVUK(I)  ♦ VUKILLdl 

SUM 

0570 

CO  24  I=l,NSYT 

SUM 

0580 

2A 

SUMVWKdl  = SUMVWK(I)  4-  VHKILLdl 

SUM 

0 500 

C*** 

PPINT  SUMmapIPS 

SUM 

0600 

rn  so  KSioF=i,2 

SUM 

0610 

CO  TO  (32,34),  KSIOE 

SUM 

0620 

32 

MU  = KPU 

SUM 

0630 

K A =1 

SUM 

0640 

K R = KP  U 

SUM 

0650 

POP  = PLU 

SUM 

0660 

ASSIGN  4?  TO  KSl 

SUM 

0670 

GO  TO  40 

SUM 

0680 

3« 

NO  = KPU 

SUM 

0690 

KA  = KPU  ♦ 1 

SUM 

0700 

KP  = KPU  ♦KPU 

SUM 

0710 

POP  = RED 

SUM 

0 720 

ASSIGN  44  TO  KSl 

SUM 

0 730 

40 

CALI  PAGE 

SUM 

0740 

WP ITE(M6, 2000)  KPAS,  POP 

su« 

0750 

ATOTLS  = 0. 

SUM 

0760 

TOTl  ST  = 0. 

SUM 

0 7 70 

JU  = 0 

SUM 

0780 

nr  4P  KU=KA,KR 

SUM 

0 790 

JU  = JU  ♦ 1 

SUM 

0800 

CD  TO  KS  1,  I 42,  44) 

SUM 

08  10 

42 

NAMA  = NAMBUI JU, 1 ) 

SUM 

0H2O 

NAMR  = MAMHU(JU,2) 

SUM 

08  JO 

KTY  = KHUK(2,JU)  / 10000 

SUM 

0840 

KGP  = KRUK(  3,  Jt) 

SUM 

0 8 50 

KST  = KRUK(4,Jt) 

SUM 

0860 

GO  TO  46 

SUM 

O^TO 

44 

NAMA  = NAMRU(JU,1) 

SUM 

0880 

NAMP  = NAMRUIJU,?) 

SUM 

0890 

KTY  = KPUK(2,JU)  / lOOCO 

SUM 

0900 

KGP  = KPUK  I 3,  JU) 

SUM 

0910 

KST  = KRUK(4, JL) 

SUM 

0920 

46 

PK  = PKLAST(KU) 

SUM 

09  30 

AEHFs  SUMWT(KU)  / KPAS 

SUM 

0940 

AVL  = SUMLST(KU)  / KPAS 

SUM 

095  0 

AVUK=  SUMVV!K(KU)  / KPAS 

SUM 

09f,n 

ATOTLS*  ATOTLS  ♦ AVI 

SIJM 

0970 

FHF  * CUMWT(KU) 

SUM 

09R0 

VL  * VltLOSTIKUl 

SUM 

0990 

VUK  = VUKII  1 (KU) 

SUM 

1000 
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TOTL  ST=  TnTLST  ♦ VL 

WRITE( N6, 20n?)  JU,NAMA,NAMB  tKTY.KGRfKST, PK.EHEtVL  tVUK, 
AFHEtAVL ,AVUK 

rnNTINUF 

WRITF(Nft,  2CC<.I  POR,  TOIL  S T ,KP  AS  , ATflT  LS 
CDNT  IMUE 


r.***  ROTATF 
to  CFP=S. 


KTRAN=MOO(KPAS,3)+1 
KA=KPAS/3^1 
A = RnT  ATE 

AP*XNRN( IDUM)*A/1C. 

xr=p  A 

Yf,=PP 

XP  = XNRN ( I nUM  »*CEP* .849 
YP*XNRN( irUM )*CEP*.849 
iF(KA.r,E.2)  nn  rn  62 


AP  = 0. 

XR  = 0. 

YP  = 0. 

62  A=A>AR 

I F(  K TRAN  .FQ  .3  ) A=-2.*A 

JA=A+.01 

A=J  A 

S 1NA=SIN( .01 74533*A) 

CnSA=crS( .0174533*A I 
CO  66  K=l,NRG 
Cr’  66  I = 2ta 

x*pr,c(  i,2,K ) 

Y = PGC(  r,3,K  ) 

JHV=  lOOC. *( RGCl  I ,5,K)+.0004) 

JH=JHV/ lOOO 

JV  = Mnr)(  JHV,  1000) 

XA=X- XC 
YA=Y- YC 

RGC(  l,2,K  ) = XA*f.CJSA-*-YA*SI  NA4-XC  + XR 
RGC(  I t3,K  ) =-XA*SlNA*YA*rnSA  + Yr.*-YR 
JH=JH+J A 

TFCJH.LT.OI  JH=JH*360 
IF<JH.fF.360)  JH=JH-36C 
RGCl  I.S.K  )=FLnAT(JH*1000+JV)/l000. 
66  rONTINUF 
RETURN 
ENO 


RL'^CK  PATA 

R EAL>  8 m ,7  77  ,XXX,PPP 
rriMMON/UPNl/  I I ! ,7  77  , XXX  ,PPP 

CP^MpN/CGUtn/  snxp(2) , SPVP<2) ,SKXP(2) ,SKYP(2) ,SEXP(2) ,SFYP(?), 


HI  K AOOIO 
H.X  A0n2P 
HI  K AOn  30 
pi  KA00<,0 


ISKX ) 2 ), SK Y( 2 ) ,SnPXT( 2, 3)  ,SPR YT(2 ,3) ,SPRX0T12,3)  ,SOPYPT ( 2, 3 ) ,THFT A hlx  AOOSP 
CPMMtlN/PATTR  Y/  N P A TT  , M I SR  AD  ( 2 , 1 0 1 HlHAnO60 

cr*<MrN  /SPNrov/  ipa  , irb  , ioa  ,Tnp,  i bpttm,  j acti  v,srangf(  i?  ) , plkaooto 

1 SIHEP  |T(  17)  PLK  AOOPP 
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•>7,* 


ff'MMPN/  FrnnST/  NSHlPfNAIR  ,NSUB  ,NVSF4,NVALT,  Pn  7“  5 N , PCM  I N , '•L''  ^0090 

1 a|PrPT,FD»)M,HyiM,PI  ,TWnP|  , I ENV  , I SCAN,  I PR  AO  , ! M I SC(  351  HI  KAO  100 

rMK'Hnk  /rFviCE/Nn(  uj  plkaouo 

rOMMON/rAl'lUU  / IPM  16),  JPAP  ( 16»,PAR(  16)  tLABEL  PLKA0120 

TATi  I I l,;7Z,XX*,PPP/Al9A3  05.0  0t  0. 00 1 . 32^3  00  ,2 1 ^ 836^7  00  / RL  KAO  I 30 

TATA  SOXP , 50YP , SKXP, SK YP ,SE  XP ,SE  YP , SKX , SKY , SORXT , S OR YT , S 0«X CT , RLK AO  140 

lSrRyPT/C.6F-4,!).3r-4,0.6F-4,0.  3F-4, 0.02 ,0.01  ,0.02,0.01  ,0.01  ,0.005  , RLK  AO  I 50 


20.0 1.0.  r OH, 0.0  3, C. Cl  5, C. C3, 0.0 15,0. ,60  0.  ,600. ,6  000  . ,600. , 6000 . ,0.  , 

3600.,  60C. , 60CC. , 600. , 6000. , 0. ,0. ,0.25, 1. , 1. ,3. ,0. ,0.,n.25,  I. , 1 . , 
43./,THFTA/3C./ 

FATA  NPATT/7/ 

FATA  H ISRan/671  1,7713,  €712,  7711  , 6713,7712  , 5714  ,7714, 

1 8711,9711,  8713,5713,  8712,9712  / 

FATA  IP  A,  (HR  , ina  , tOP  ,1  BOTTM,!  ACTl  V /I  , 1 3 , 14 , 17 , 1 ,0/ 

FATA  SP AMGF/2.,  5.,  7. 7,2  0. ,30. ,4  0. , 50. ,60. , 80 . , 1 00.  , 120 . , 

I 15C.,  IPO., 2., 5. ,7. 7, 18./ 

fata  SVER it/ 6 2., 80. ,92. , h4., 95. ,97. ,101. ,107. ,108. ,1 10. , 

1 115., 1 16.,  120. ,62.  ,6  0. ,92., 12  0. / 

FATA  NFHP,NA1R  ,NSUB,MVSFA,NVALT,lPRAr),t  SCAN,  IF  NV 


PLK  AO  160 
PI  K AO  170 
HI  K AOlPO 
RLK  AOl^n 
HI  K AO  200 
Rl  f A02  10 
rlk  an??o 
Bl  K AO  2 30 
“FK  AO  2 40 
PI  K AO250 
“1  K A02  60 
RLK  A0270 


1 /1,2, 3,6,9, C, 3,4/ 


HI  K JO  PRO 


FATA  nf^TMIN,PnMIN,AIPrPT,FPNM,HMlN,Pl  ,TWOPI 
1 /.5, .5, l.,6CFC.,.CC33,3.14l593,6.2P31fl6/ 

FATA  IMISC/35*0/ 

TATA  NF»/  1,2, 3, 4, 5, 6, 7, 6,  9,  10, 11,12/ 

FATA  IPP/  1,0, 1,  1,12*1/ 

OATA  JPAR/lf*l/ 

FATA  PAP/16*!. 0/ 

FATA  IAPFL/  1/ 

ENF 


P|  KAO  290 
RLK  AO  300 
RLK  An3  10 
R|  K A032O 
R|  K AOJ  JO 
PLK  AO’A  ) 
HLK  AOOHO 
R| 

“I  K A 0 3 7 1 


PLOCK  FATA 

r pr.M  = K'FM.  FVAN  FOTTFA'.  VFR.3  7-26-73IBM  370  FORTRAN  IV.  FBC  0 
C PLFFK  B 

rpMMPM/r/l  AV  IG/  ngmx,pe,bf,rf,rf  , 

1 NFC,  BA.P.R.PF  ,Rn,KBGA(  IR)  ,KBGK(  1 fl)  ,PGC  ( 8 ,6 , 1 B I , NPP  ( 1 8 I , 

2 A'PG,P  A,PR,PC,PP,KPGM  18),KRGK(  181  ,RGC.  ( B , 6 , 1 8 ) , NRtI  ( 1 3 ) , 

3 TT  IMF.NPMX, 

4 Kpu, KBUK (4, 50  ),BPFL  <4,50),RXYZ(5n,71  ,NAMHU(50  ,2  I , HV ( 50  , P ) , 

5 KPll,KRIIK  t 4, 50)  ,PPFL  (4,50)  ,R  XVZ  (50,71  ,NAMRU|50 ,2  ) , RV(  50,B) 
FRA  FAR 

roMMOA'  /r  R APAR/NP9P  ,NRTR  ,NBP  MY,NBJ,Nnj“X, 

1 fp  API  36, 1 7 ),Rrr  V( 6, 2) ,BF  TC  (4,2)  ,BTAP (6 ,3)  ,B JA  «(6  ,3,2) , 

2 NRSR  ,MP.TP  ,NF  RMX  ,NRJ,  NRJMX, 

3 PRAP(36,15),PFNV(6,2),RFTC(4,2)  ,RTAR(6,3)  ,PJAM(f,,3,2) 

rSASYS  15  4 4 2 4 20 

r 9 A9YS/  NSASYS,NSA  SM X , NBGUN , NB S A M , NRGU N,  NP  SAm,  t AS  A, 

I NAMSAI 2,  15)  ,KSATVP(  15)  , SASYS(20,IH) 

r 

FATA  NG"  X,'Mr  X/ 1 8, 50/,  NB  G , A RG  , K H L , K P U /4  *0  / 

FATA  PA,  BH,HC  ,PP,RA  ,RB,RC  ,90  / 8*.0/ 

FATA  KPGN,KBGK  ,NHI),KRGN  ,KRr,K,NRU/l0B*0/ 

PATA  KP'IK  ,KPI!K  /400*0/ 

FATA  Hrr.,prc/  1728*.0/,  BRFL  ,RREL/400*.0/,  BXYZ,RVV7/  700*.0/ 


H|  K onO]  0 
p|  KR00  20 
RLKHCO  JO 
P t i<'  H 0 0 a 0 
0 1 li-  POP 0,0 
PI  KHOPf'O 

iiL  ic  oPO  70 

k HO  I o ■) 

rlk  ROOO 0 
PI  K “0  IPO 
PL  k no  I 1 0 
'o  k oo  1 ,'o 
p|  k no  1 J ^ 
HL  '0  140 
p L k n f'  11,-) 
R|  k I’O  i I 0 
RL  •-  R ) 1 7 1 

ni  k ,1  0 I PO 
PI  K OOl  R 0 
R|  k R0  2l)R 
"1  KR021  0 
”1  kO  T t^o 
HI  K RO^  JO 


0 
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TATA 

PV,P V/B00*.0/ 

°I.X  00240 
PI  K R0750 

EAT  A 

'IBP  MX,NRPMX,NP  JMX 

,NPJMX/  17,15,  2f  2/ 

RLK  BO260 

EAT  A 

PFNV/4.,0.,0.,  1., 

l.F-6,0.  ,A. ,0. ,0. , 1. ,1 . 

F-B  ,0./ 

°LKO0270 

TATA 

PENV/A., 0., 0. , 1., 

t.E-6,0. ,4. ,0.  ,0. ,1. ,1. 

F-8,0./ 

PL  K BO  280 

TAT  A 

PFTC/  FO.,  IOC. ,0. , 1. ,150. , 150. 

f 0»  f 1 • / 

OL  K 002^0 

DATA 

PFTC/  12U0., 

100. ,0. , 1. ,24320.  , 

PL Y P0300 

EAT  A 

PTAP / 500  .,  1000. , 

20.,  20.  , 2*0.  , 

ELK  P031  0 

1 

675 ., 5000. , 

20.  , 20. , 2*0. , 

RLKB0320 

2 

1000., lOOOC. 

,20. , 20. , 2*0.  / 

PL  K PO  T 30 

EAT  A 

PTAP/  13.7,  1., 

608. , 533.2  , 2*0. , 

«LKPO  340 

1 

30.,  10., 

24320. , 533.2,  2*0. , 

0|  K003SO 

2 

500.,  1000., 

20.  , 20.  , 2*0./ 

PLY  R0360 

EATA 

PJAM/  36*0./ 

OLY  POGTO 

EAT  A 

RjAM/7000.,  n.,?5 

.F*6,l.  ,200., 225., 

OLKOOTPO 

1 

lOOC 

.,  0.,70.r^6,L.  , 

2965.  ,3035.  , 

PL  K 30390 

2 

ICOC 

.,  0.,  lOO.F  + E,  1 . 

,3450. ,3550.  , 

OLY  304^0 

3 

son 

.,  0.,  75.E+6,l. 

, 5390. ,5465.  , 

P|  KOOA  10 

A 

son 

.,  D.,  75.F+6,l. 

, 5465. ,5540.  , 

"1  K 004  20 

5 

son 

.,  0,,  75.F+6,1. 

,5540. ,5615.  / 

p(  Y 00430 

EATA 

SASYS/  300*0. / 

OLK  P044  0 

END 

PI  k 3045  ) 

C TMP  p AHftP  (R  ,f  NV  fF  TC  , T AR  , AM  J , T P AO  t P ANGF  t PO  A,  ANG,  OYN,  IT  ST  , 

C 1 IPNG,  IPRMT  ) 

r '^TC'.rALL  SIGOS=  20  30.  VFR.?  ll-?5-7<^ 

C_*H*t**X‘*:*i****t********t:**‘******1t^^tt^itt^t1t^^t*^*tli^-i^^-^*^^***^^*t)l**0t***** 

C ♦ 

C AHRAO  MOn  2 COMPUTER  PROGRAM  ♦ 

C • 


r 


t AC  AM  I I I 

■>  Af'  A007T 

o at  A^'O^O 
= a'^a;)0/.o 

p AOAO  T«;  0 
RAnAOMft'T 
A n.A  TO 
PAT  Ann  00 
Mao  Annt)  0 


C 

C CFFFMSIVF  radar  PERFIIPMANCF  against  airpornf  targets 

c raSF  I AIPnORMF  target  without  fcm 

r EASE  ? AIRRORMF  TARGFT  with  colocated  noise  jammer 

C OASE  j airdorne  target  with  standoff  jammer 


R A i:  A 'H  O T 

RAM  A 01  10 
•■■A  MAM  1 70 
R A r A n I 
■•'  A '■  A 0 1 4 -» 


■ A M A n I s G 


r 

c lARUT  PAPAMtTPRS  RFOUIRFD  IN  THE  NAMELIST  ARE  AS  FOLLOWS 

c 

r ramar  paramptcrs 


M AD  AO  I no 
RARM!  1 70 
• AM  AO  1 OM 
' A TAM  I'JO 


c 

r 

c 

c 

c 

r 

r 

c 

r 

r 

C 


yiAMPA  = DEEFIVER  CENTER  FPEOUFNCY  WAVELENGTH,  EENTIMETTRS 

PVP  = GFNFRATFM  PAMAP  POW^P,  WATTS 

CTCP  - RADAR  transmit  ANTENNA  GAIN,  DR 

rprp  = RPCEIVFR  antenna  GAIN  (MAIN  LOPE),  Dfl 

PMcrnR= 

**'FrR  = PAOAR  RECEIVER  NOISE  FIGURE,  OR 

PR  = PAOAR  RECEIVER  HANOWIDTH,  HFRTT 

XI  TOP  = SYSTEM  lOSSES  AHEAD  OF  PF  AMPL I F I FO , DP 

XLDDP  = PEfFIVFP  LOSSES  SUCH  AS  FFEICIFNCY  OR  ANTFA'FA  PATTERN, 
XI  SOM  = PAEAP  SYSTEM  LOSSES,  OB 


A r AO  7'VI 
" AO  a;i7  n 
I-'  A r A 0 7 7 O 
R AO  A07  10 
RAnaT’A  ) 

O A O A.)  7S0 
• AO  AO  7AM 
R A o A M 7 7 0 
R A 0 A O •>  f 0 
nn  ■\0A'^7O0 
RAD  AO  3 00 


t->  o o r>  r>  ^ r»  r-»  n n r»  r»  cn  o o n r>  .->  r>  D o r>  o ^ o o 


r 


c 

r 

r 

r 

c 

r 

r 

c 

r 

r 

C 


TV  PF 

OF 

MDGui  ATIPN  USFD 

'•rp  s 

1 

UNCPMPR  T CSFO  PULSF 

v(  n r 

z 

PULSF 

compression 

Vf’f'  = 

■3 

PUL  SF 

CURST 

•Mp  r i 

CW 

Mf'  r = 

s 

FM-C  W 

Mor  = 

6 

MTI 

Mpp  = 

7 

PUL  SF 

pppplfr 

TAU  = PAPAM  r>ij|  SF  WIPTH,  MICRO  SFCONDS 
PPF  = PUI  SF  P'-PCTITlpFI  UATF,  PULSES  PF  R SECONn 
F A^  = IFF  NL'MPFP  r'F  PUtSFS  WHICH  CHANGE  IN  FREOUFNCY  RY 
TFF  PFGIppOCAL  of  the  PULSF  WIDTH 
PCPAT  = PMISF  CPPPPFSS  ion  RATIOf  MJMFRIC 
ITYPF=  TYPP  'PF  PnF-'»M  I/FH  AMTFNNA  GAIN  FlJNCTinN. 

= I I <:  SYP.Mf  TP  I cal  SINX/X  pattern 
= ^ IS  A CSC  SOUARFD  FUNCTION 
PFlZro  = MrN«(|M  angle  off  ANTFNNA  HURF  SIGHT  AXIS  AT 

WEIGH  thF  PATTERN  FUNCTION  RECPMFS  A CSC  SOUApFO 
FUNC  T ION 

PATFl  = ANTFNNA  AZIMUTH  SCAN  RATF,  OFGPEES  PFP  SFCONO 
PWA  = AnTFNF'A  ATInuTm  HFAMWIOTH,  OFGRFFS 
PWF  = E'AM  WIDTH  OF  ANTFNNA  IN  ELEVATION,  OFGREFS 
TILT  = "AIN  REAM  fLFVATION  ANGLE  lOFG) 

TA  = ANTFAP'A  TFMPFPATUPF,  OPGR^F  S K 
FImSTR  = IvSTPUNFAT  err  in  angle  IN  MPAO 
TI  = ir  Trr-P  A T IfJN  fP  SMOOTHING  TIMF  DURING  TRACK 
AZ  = AZ  IMijTH  roMPTNFNT  OF  THE  SFOV  , OFGRFFS 
FL  = FirvATiCN  rOMPONFNT  OF  SFOV  (DEGRFFS) 

TF  = FPA^r  T IMF  , SICONOS  (TIMF  TU  SFARGH  THF  SFOV) 

rNVIPONA'^NT  AMO  OFTFCTION  CPITFPIA 

ISS  = SFA  RTATf  NUMRFP 

PATE  = PAINFAI.L  R/TF  IN  mmzhp 

AIPHA  :r  FAIMFAIl  ATTFNUATION  IN  OO/MFTFP  AT  SPFCIFIFD  PAINT  All 
r-ATF  AND  EAVMFNGTh  (klAMDA) 
riSw  = SUFPL  INC  FAf  TOR 
PFA  = PRORARILITY  (IF  TALS'-  ALAOM 

SFOUFNGF  opoFNOFNT 

E 1 = PACAP  EF  IGH  T (FT) 

sop  = jammfr  stano-off  range  in  nautical  miles 

JA"  = 0 FOP  Mq  jamming 

= 1 FOP  JAMMCC  rniOCATTO  WITH  TARGET 
= r FOP  STANO-nFF  JAMMER 

KMPrF  = I Ff'P  pATAR  OPFPATING  iq  SUR  VF  I L L A NC  F ( S F A R f H ) Morr 
AMROF  = ? TOP  RAO/R  OPERATING  IN  TRACK  'MOOF  (TUTP  = r|vA) 

ANO  USING  simultaneous  L OR  I NG I MONO PU LS F I 
NANIOF  = A FOP  RAOAO  OPERATING  IN  TRACK  mOOFITILTR  = I V A ) 

A''D  USING  r iMICAL  SCAN 

EMOqt  r i,  FOP  RAGAP  OPERATING  IN  LIMITFQ  VOI  UMF  SFAPGH 
TARGET  gkap AT TfR 1 ST  I r S 


PAD  AO  T 10 
P AGAO  JZO 
P A GAO  4 TO 
PAG  AO  4^,0 
R AG  ADA  SO 
RAG  aOOT'O 
PA  dado  70 
RADaotrO 
P AG  AO  J^'O 
P AGAD<,r)0 
'•A  GAD  A 10 
PA  DAD^ZO 
"ADAO^OO 
GADAO^AO 
PAGAOA'n 
G A ''AOAA,  ) 

G AG  AG^  70 

RA  AGaRO 

-’AGA'i.oo 
PAD  AD', GO 

'■  A^ADSl  0 

PAG  AOS 

A G AO  S 4 0 
I A G AOSAO 
GA'^AOSSO 
G A GA'ISEO 
P AG  AOS  M 
P AGADSfID 
'-•AGaO'^po 
P A G AG7>GD 
G A G A 0 S 1 D 
''AD  AO  A ZD 
G AD  AD  A 4.1 
‘ AD  A ) AAD 
^ A G AG  A ") 
G AGA  DAA  ) 
P A G .AD  A 70 
P A D A AA  G 0 
• A''  A lA'TO 

■ A" AG  / G A 

' AG  AD  ? I'A 
p A G ,»  A 7 7D 

'.gad  7 7 1 

' .AG./\  ) 7/.,A 
PAHA'  7t  A 
G ' G A A 7 ^ A 

^ • r' ' ' ^ ^ 

^ ''A  w . 'l 

> M.  ) 
L ^ ^ T' 

■ '‘M  n 

■ A ^ ' 1 

L.  ^ MO 

■ ^ 'M'''  ''  •'t  ) 


N-  1 n 


n o r>  o o o 


r /MTGT  = PonjFCTPn  LPf''GTH  OF  T4RGET  ORTHOGONAL  TO  THF  RAOAP 

C I IMF- IF- SIGHT,  FEFT 

G STOMAT  = PAOAR  CRT SS  SECTION  0^  THE  TARGET,  SQUARE  METERS 

C M?  = TARGET  l-FIGFT  (FT) 

C VRPLK  = RFLATIV'"  CLOSIMG  VELOCITY,  KNOTS 

c PR  = RANGF  in  NM  I AT  WHICH  THE  TARGET  BEGINS  ITS  OESCEHT 

r NOTE  IF  target  MAINTAINS  CONSTANT  ALTITUOE,  SET  )R  = 0.0 

C AK?n  = CRSCFNT  ^^^STANT  MAINTAINS  CONSTANT  H/P  OURING 

C ri  IGHT 


JAMMfR  CHARACTERISTICS 


RAOAORbO 
« AHAOR  TO 
PAOAOMBO 
u AO A0B40 
P APAOOOO 
RACAOPIO 
P ACAOOPO 

PAOAOPTO 
PA  OAOOAO 
<“  AO  AOOkq 
P AO  AOOf.O 
PA  OA0')70 


C 

c 

c 

r 


PJ  = GENERATFO  JAMMER  POWER,  WATTS 

CjnP  = TRANSMIT  ATTFNNA  GAIN  OF  J AMME  P S 1 GN  AL  , OB 

RJ  = JA‘<mfr  signal  PAMOWIOTH,  ALWAYS  EQUAL  TO  OR  GREATER  THAN  BP 
'^Ijrp  = inSSFS  IN  the  jammer  transmitter  chain  such  as  ANTFMNA 
ANi;  WAVECUIOE  losses,  DB 


Sl.'RRPUT  IN  P O ACAP  IF  A0,FNV  ,ETC  , TAR  , AMJ  , TRAn,RANGF  ,P0  A , ANG  ,OYN,  IT  ST  , 
1 IPNG,  Il'P^'T  ) 

rOM«*(’N/ I'nCT/NL  INF  ,NPAGF,OCrDEI  20),  lOUMI  lOB) 

O IMF  NS  ION  OATI  «V<3|  .PAOI  31  ) ,ENVI  6)  ,F  TC  (4)  ,TAP  (6)  , AMJ  (A)  ,TPAn(  10)  , 


P AO  AOOPO 
RAOAOC^'JO 

pAIIAI  00  0 
•'ADA  10  10 
P A o 1 1 7 0 
PAP  A 1030 
P ACA  10^,0 
P AO  A1 3S0 
PAOAl  TOO 
O A n A 1 0 T 0 
I-  A r:  A 1 ,1  p 0 


IR  AMO.r  ( 1 O)  , Rf!  A(  I 1 ) , ANG  I 10  ) ,0YN  ( 10)  P AO  A 10  40 

/RLKO/PFTA,ALFA,XLAMDA,PWR,GTDB,GROB,SNRnOB,XNFnB,BP,<ITrH,r’ArAlloo 
lTLP|)P,TtSnB,AMnn,TAU,RPF,FAN,PCRAT,PHtMAX,TVPF,PHIZFR,RArFl,BWA,  paCaiiio 


2PV.E,  T II  T,Ta  ,E  INSTP  ,T  I , AZ  ,EL  , TE  , X K , AI  S S , R A TF  , ALPHA,  A NSW  , PFA,HR,  H 1,  oat  M 120 
3FOR, A J A”, ANMOOE, Al TGT,SIGM4T,H2,VRFLK,nR,AK20,PJ,GjCB,Pj,Xljnp,  RAOAl l^O 


AISS, ITYPF.NMOOE, VPFL 
COMMON  /PLK3/  FF,  pc,  ox,  IHACK 
FOUIVALFA'CF  ( 04  T I I ) , XL  AMO  A ) 
ion  FORM  AT  I (X  , 1 on  N P U T OAT 
1 P S/6X THXLAMOA  = IPF  10. 3 , 1 IH , 
23,10M,  GPOn  = , IPF  10. 3 , 1 lx , 

33, IH, /6X7MBR  =1PF10.3,11H, 

AJ,ICH,  xlSOB=,  1PF10.3,11H, 

53,  IH,  /6X7HFO  =1PF1 C.3  , I IH, 

6J,10H,  TVPF  =, IROIO. 3, 1 IH, 


,ELVA,  fC  , RFC!  10)  , TC 


= lPr  in.  J,UH, 
= , IPF 10.3,1  IH, 
=IPF10.3,11H, 
nvtponmf 


73,  IH,  X 7HPWF 
P3,10H,  FA 
S3, I H,  /f  X7HA  7 
1 T,  IH,  /3CX67HF 
2R  I T F P 14  /*,X7MA  I SS 
■>4=,  IPP  1 r.  3,  1 OH,  4NSw 
F I.'  'J  F Ni  C F r F P 
5 =1PF  10  .’,  lOH,  son 
6t  = lPF  10.3,  1H,/44X43MT 
7 7HA|  A GTHx  IPF  10. 3 , 1 IH, 

P VRFl  =,  IPF  n.3,  1 IH, 

5 


A,25X31HR  A n 4 P 
PP  =IPF10.3,10H, 

1PF10.3,10H, 
XL  =l PFIO.3 , lOH  , 

AMCO  =IPF10.3,10H, 
FAN  =1 PF10.3 , lOH  , 
PHIZFP=1PF10.3,10H, 
BWO  =IPF10.3,10H, 
F rNSTR  = lPFIO. 3 ,10H, 
FL  =1  PFia.3 , lOH  , 
NT  ANO  OFTE 
= IPF10.3  ,11H,  RATE 

= , IPF  10.3, IIH,  PFA 

F N n E N T/6X7HHI 


R A 0 A 1 I A 0 

PAOai  1 ST 

oAOfti 

A R A M r T FPA  PA  1 170 
GTOP  = , 1 PF  in  .P  A-' Al  1 «0 
XNF  = , IPF  1 0.  A ''  Al  1 no 
P AO  A 1 700 
o AO  A 1 ■’  I 3 
o A 0 A 1 7 2 0 
A o Al  O 
" A o A 1 •>  A ) 

r-  • n , ] , r,  ) 

u A 0 a 1 
■/  A VA  1 2 7n 


= , IPF 10. 3, lOH,  AJAM 
APGFT  CHAPA 
SIGmaT=IPF1  0.3  ,1  OH, 
OR  =1PF10.3,10H, 

TER' 

G JOP 


XLR  =lPriO 
TAH  = , IPF  10 
POP  AT= 1 PF  10 
R ATCl= , 1 PP  10 
TILT  = I PT  10 
T I =,10010 
T F ^ 1 RO  10 
r T I P ^|  r 
= IPF10.3,IOM,  ALFhi'"', 

=IPF in. 3, 1H,/ABX 35HS  AOAi2-n 
= lPFin.3,  I in,  SJFP  iAOaIjoI 
= ,IPEI  0.3,  IIH,  ANMi-rji-  AO  Al  <11 
C T E R I S T 1 r S/GX’  'F  M 32  0 
H2  =,1PF10.3,10H,  pa  'A135T 


4K23  =,1PF10.3,  1M,/A‘  A'lAl  lA  ) 
S^x^AMJ  AMurp  CHARACTER!  STirS)  ■’ A •' ' ] < 40 

1002  fpowat  I AX  7MPJ  = IPE  1 0.  3 , 1 IH  , GJOP  =lPFl0.3,nH,  PJ  - , 1 pf  i ■ a i 3 "i 

in.T,10H,  XLJ  =,  IPF  1C.  3,  IH, /)  I'A’-MA-'A 

100  3 FPRM  at ( l?x  AH  T IMF  1 1 X5HP ANGFHXqHPROP. OE  T. 7 XTHHANOPFFB  XTHOVNAM I r ) i AO  M 1^0 

lOrA  FPF A FI  12X  AH  T 1«E  1 1 XSHPANGF  HX  9HPP  OR.  OE  T.  6 X9H«  AX  T R A F K 7 X 7 MOV  a A m j r ) JAMAM'M 
I 0C5  FORM  AT  ( 12X  AHSFC  . I 2X3HNM  I SX9HPFR  LOOK  5 X I 1 HF  P ROP  I MR  A F ) 5 X9  mu  aNG|  ( L'P  ( u a 0 A 1 A nO 


1/)  DAnai^lO 


inc6 

FORMAT ( «X  IP  FF 1 S. 3) 

''AFAl  A20 

xT'sr.  an-0. 

PAFA1430 

pCmIT;=.S*(  l.  + AHStFTC  ( n-TAP  ( 311 /6080.  1 

RAO  A 1 4A0 

prsu^  =0  . 

P AOAl  450 

PFAl  IPMC* 1 1=0  . 

PAnA1460 

ITST=0 

RAnA1470  ! 

— 

CmCK  OUT  FOP  PAFAP  HOPI/riN  LIMITATION 

PAFA14P0 

IF(  1 . 2?80*  ( SORT  ( CTCI  1 1 FQO  T(  TAR  I 31  1 1 .GE.  WANF.EIlll  GO  TO  1? 

P APAl AOO 

ITST=-  1 

p AHA  1 son 

PFTLIPN 

P » F A 1 5 1 0 

18 

FO  18C  1 = 1,  IP  MG 

PAFAl 520 

PFAI 11=0. 

PAFAl 630 

IPO 

RFF  1 I ) = o ANGFI  I ; 

PAHAIS^O 

TPAOI  1 1 =TP  AOI  1 1*  3600. 

P AOA 1650 

rn  1 I = 1,  2q 

P A F A 1 5 6 0 

K = I * 2 

P A r \ 1 6 70 

1 

FAT!  I 1 = 0 AO (K) 

P A n A 1 5 H 0 

CO  4 I = 1,  ( 

PACAISPO 

TATI  !*39  ) = tap  (1  ) 

P AFAl 600 

FAT!  I*2C)  = EMV(  11 

1’  A r A 1 A 1 0 

GO  T-^  ( 2,  2,2.2,  A, Al,  1 

P A^A 1620 

1 

HAT ( I+A5  1 = AMJ ( 1 1 

P Af:A1630 

f AT(  1438  1 = FTF  ( 11 

P A r Al 64  n 

-3 

COMT  nilF 

P AQAl 450 

Mnp  = AMjn  ♦ .1 

PAFAl 660 

IFS  = A IFS  4 .1 

p <1  P 1 6 7 P 

NOW  = AM8W  4 .1 

JAM  = AJAM  4 .i 

PAFAl 600 

I Type  = typf  4 . 1 

!'  AFAl  700 

MMOPF  = ANMTinF  4 .1 

7 1 n 

IF  ( IPPNT  - 1)  300,  30C,  200 

pAPAI 723 

2CO 

IF  (ML  irif  - 38  ) 22C,  220,  210 

p A 0 \ 1 7 3 3 

2 n 

CAU  PAGE 

P AF  M 740 

’20 

IF  I IPPFT  - 1 1 3CC,  2AC,  ?30 

P A P A 1 ’ e 0 

230 

WP  tTF(6,  1001 1 XI  AMOA.PWR ,G TGR ,GRDB .SNPDOB  .XMFOP.RP.yLTOH.XLPO", 

PAFAl 76 ) 

1 XI  SOP,  A.MdO,  TAU.PPF  ,FAM,PCP  AT  , TYPF  ,PH1ZEF,RATF1  ,PWA,pwF,TIIT,TA, 

P A.  p A 1 7 7 3 

2F  IN<^TR,  T I , a;,  FL  , TF  ,A  I SS.RA  TF  , ALPHA,  ANSW.PF  A,H1  , S JOP.SFR  , A ,)A  Y, 

■ A r A 1 7 p 3 

JAMYPnF,  A|  TGT,  S I FMA  T , H2  ,VR  E L K , OP  , A K2  0 

R A 3 Al  70  3 

WP ITF ( A,  1002 1 P J.G  IOP ,R J,XL JOR 

'•  A n A 1 ■!  3 3 

M IMF  = MI  INF  4 IF 

" A P A 1 3 I 0 

2 AO 

rri  TF  (2F0,  260,  260,  280,  NMOOE 

1.  0 r A 1 0 2 3 

2'0 

WP  ITF  U.,  10021 

r 

CF  TFi  270 

< A '■  A 1 •!  4 3 

?P0 

WP  ITF( A,  lOOAl 

A P.A  I Pe  > 

2 70 

w’  I Ti  If,  100  = 1 

? \ f'*  1 W , 1 

Ml  INI  = f 1 INF  4 2 

'3  7.  r-  > 1 ^ ^ 

?C'0 

re  = 1 . 

- rr  ^ 1 •'  o 

CF'-.pftri  = 87.2P57F 

1.  ^ .M  H * . ) 

r = P .PATFfl 

i ^ \ 1 on-') 

AY  = l.3f"'-?2 

C A'-  .A!  >1  1 

PF2=  1.6«)°P2F7 

' A3  M Apr) 

XI  = in.  ♦♦  I . 1*XLTDF 1 

r > 

XMF  = 10.  **  (.l*XMrpp) 

P A A A 1 34  3 

AINGTH  = ALTGT  * .’PABCl 

I-  A F A 1 O c 1 

N-  173 


c 


c 


r 


VPFl  = VFFLK  «■  l.<87fl 

IF|  VF  FI  .t  T . . 1 ) VP  FL  = . 1 

I-2T  F"P  = F2 

DKTF«n  = PWR 

TAUT”P  = T/MJ 

PN3DfT  = 1. 

Cr  TP  (6,  5,  F,  7) , NMOOE 

5 TPl  = Tt 
GP  TP  7 

6 TP  1 = p / P A TF  1 
TG  = Tcr.  / PiTF  1 
GP  TP  8 

7 TG  = 6. 

8 PKPP AP  = PHI 7FP / F7.20577C5DC 
GPMpdTf  SYPTF'I  HPISF  TFMPFRATWRE 

TS  = TA/XL  H(  (XL- 1. )/XL)*290.  ♦ ( XNF-l . ) *290. 
rrMPDTF  tignal  procfssing,  gain,  spr.np 

9PGPo  ? IG.r'AL  PRPGrFSIA'G.  GAIN  BAFFP  ON  SNR0D8  = 22. FOR  PNF  PIILRF 
PP  = 0.9  ANO  PFA  = l.F-P  STERLING.  CASE  I AND  SO  LAW  DFTFCTGIP 
IF  (MPD  .NF.  2 1 G.n  Tn  11 
PV,P  = ♦ PGRAT 

TAU  = TAU  / PCRAT 

11  GAIF'  = 10.  *♦(  GTDR/ 10.  ) 

PPOF  = 10.*  ALPGI  0(  PKR  ) 

CCNVFPT  XLAmPA  in  C"  TP  f'FTFRS 
PI  = .Ol^XLAMDA 
WSQPOP  = 20 .♦ ALOG  10(0  1 ) 

XMI)^<^n  = PRPP  + GTDH  ♦ GPPR  ♦ WSQRDR 
PiOB  = 33. 

CrNOP  = P3PP  ♦ XLSnn 
XKDP  = XA'U'AOP  - PFMPP 
PGSDP  = 10.«ALnGlC(  SIG,MAT| 

TFFTl  = PWA  / F7.29S78 
TFFT2  = BWF  / 57.2P57P 
XK  2 = T|-r  T 1*  THE  T 2 
XK  1 = 1 ED. * TAD 

XFN  = ( ( F AT  F**l  . t ) *5.69  IP*  1.6F-6  ) / XLAH[)  At*A 
XKLO  = XXDP/IP. 

XK  = 10  .•  TXK(  G 

(-  imfT  = Hl«.  3CAP 

PHI  = 1 .2289  « SOP  T(H  1 ) 

HALFA;  = THFTl/2. 

HALFF(  - THFT2/2. 

T 1 = r A'H  n*l  FA?  ) 

T2  = TA^IHALFfL) 

Til  TP  - TILI/57.2997! 

TILTH  = TIL  TP 

PJPP  = 10  .*ALnG  1C( PJ ) 

PPPP  = 10  .♦A  LG)G  10(PR  I 
PJGP  = 10  .‘ALPO  10(8 J) 

GO  TP  (13,  13,  13,  12 ) , NMHDF 

12  G“FG,A  = A.  *2  . 19  1 F/GA  IN 
FI  AK  G.  r H /PFGO  AO 

G.^'A  X = T t I TF  » I I AMr./2. 

A*  G-  IN  = T IL  TF  - (1 ANG/2. 


P AGAl 060 
P A r A I 9 7 0 
PAOAl 9P0 
PAPA  IPOO 
R AnA2000 

0 ArA20  10 
P ACA2020 
P,  ArA2030 
R ArA2O9  0 
P A^APOF  0 
R APA2060 
PAPA2070 
P AGAPOPO 
P AP  A?  OPP 

pAOAP 1 no 
RArA2 1 10 
R A P A 2 1 2 0 
R A r A 2 1 0 0 
p AO  A2  19P 
p AC  A2  1 fiP 
RAOA2160 
R AO  A2  I TO 

TA0A21 PO 
R.AP  A2  T'O 
P .*  P A2TO0 
P A 0 A 2 2 1 0 

p A f-  A2  72  0 

••'A0A2  23O 
l’AnA22  90 
P 1OA2290 
P A PA  2 T 60 
p A P A 2 2 7 ) 
n A P A2  T GO 
D A r « 2 2 o o 

P AG  A2  30-> 

1 ' OA  2 < 10 
P A A 2*2) 
rj  A ''  A ;>  7 7 O 
papa;'  <90 
P A pat  iso 
'■  AP  A2  ' 60 
P A P A2  I ^ ' 

p A 0 A 7 1 o O 
‘’A’'A2  19  1 
' A PA29('0 
F A I'  A 2 9 I 1 

I A P A A.  2 0 
I A G A2  9 7 0 

t A P A2  990 
P A P A 7 4 s o 
A A P A 2 9 A-  1 
L A P A 7 /,  7 I 
> AG  A 29  8 0 
A GA  29Pf' 
I-  AP  A7SO  ) 


N-  1 79 


r 


^7A^G  = A7/^^^GHAr) 

SFnV  = 3. 1^16*TAN(rLANG/2. )*TAN( A7ANG/2. ) 
TTS  = TP*r)MPGA/SFr  V 
TGI  = 

13  TP 2 = tC<‘TAU»  l.E-ei/(  ^.*VRFl  ) 

TP  = A.Mir'  1(  TMl,  Tf'2) 

XM  = PPP  <= 

N'  = I NJT(  XM  ) 

FA  = -ALCGIOIopa  ) 

SPGPR  = o.?*ALnGlP( XM ) -2.6*ALOGlOtXN) 

r rn«piJTf  ^FTp^Tlp^'  paa'Gf  im  tmf  arsencf  or  cc“ 

IFAfK  = 0 

call  FFACT 

IFACK  = I 

cr  ^0  1=1,  IP  MG 

If  (1  .NF.  1)  TRADII)  = TPAnil-l)  » TC 
PALL  FFArT 

IFt  IHACK.FQ.  31  GP  T-)  FC 
FFPP  = 10  .*ALriGlC(FF  I 

RV-PT  = Pf*  1 .8F2F  3 
ir  ( M^fPI'P  .MF  . F)  GO  TO  14 
ir  ( T U T ) It,  15,  IS 
If,  IF  (FLVA  .PT.  4^!G^'AX)  GO  TO  135 
IF  (FLVA  .LT.  AMGA'IM)  go  TP  50 
CP  TP  U 

15  I F(  FI VA  .GT  .ANGMA X 1 GO  TO  50 
IFl  FI  VA  .LT.AMGRIN)  GP  T'^  135 

14  FCL  r T = ( 35n.«  At  A'GTH  1 /P  A'F  T 

IF  ( FGL  lA'P.LF.  .001  1 FGIINp  = 0. 

FP  = FGIIMT**?  ♦ FIni5TR.<^*2 
IP  (PC  .LC.PP)  H2  : AK 2C*R«F T*3. 2«054 
pMFTPP  = lO.oALPGIOIPMFT) 

PSTPP  = XK PP  + RCSns  ♦ 4. *1005  -4.*RMFTnR 
C Cr’TllTF  PAIN'  CLUTTPR  RFTURM,  RRCA  (WATTS) 

VPM  = . PMP T** 2 1 * XK P^XK 1 

PPF  = ( XK ^VRN^XOM * ( F F«*4 ) I / ( ( RMP T**4 ) *F AM) 

PN  = ftx  ^T  S*PR 

ATTI'P  = 2 .F  AL  PHA  op  MP  T 

ATI  = -O.lOATTOp 

ATT  = lO.OOATl 
PSTAno  = PSTTR  - ATTOF 

pt;^  = p^3<r(iTT 

PSTAir,  = nSTA"«*c.l 
PFTA  = io.oopstak; 

C riNPUTF  SFA  rppTTFR  PFTtlOM,  RSGA  (WATTS) 

F4  = M l«f  T /Rnt  T 
p=  = a>'PT/PP2 
IF  ( p r.  .f.T  .5  H 1 ) rn  TP  71 
fcr  = piu-FF 

ir(  ARG  .gf  . 1.  ) GP'  TP*  5C 
PS  I = ARSIM(ARG) 

XK  4 = ’’Afl  ( PS  I ) 

45  API  - 2 .OR'-'F  ToXX  !♦  T l/r  PS  ( PSI  ) 

GAl  1 Sir-’SITSS,  XIA«nA,  PSI,  SIGPOP) 

G FFLfTX  r\''n5  onwM  Tn  STATFmfmt  70 


PAOA25I O 
PAPA? 520 
RAf'A25'>0 
P APA2540 
P APAPSSO 
• c A ''  A ? 5 N 0 
P APA?  5 70 
p A r A 2 5 R O 

r AOA2  5P0 

F APA2GO0 
P A P A 2 5 1 "> 

P A "A/ 5 20 
PArA2530 
P A PA2  7i4  0 
u API?  550 
a A n A 2 5 5 0 
CAPA 2570 
r ArA25P0 
r-  A0A2  5P0 
" AP  A2  7P  0 
O A r A 2 7 1 ■) 

? A PA  2 7 2 0 

0 A''  A?  730 
A A G A 2 7 4 0 
PAGA27S1 
P ' P A2  7A  0 
!■  AP  A2  T’  0 

A''A2  7‘'0 
1'A''A2TR0 
A f'  A 2 3 P O 
. A r A R 1 0 
t A '■  A 2 4 2 0 
rA2  33  .0 

1 A I' Ac  44  1 

0 « A 2 4 5 0 

1 A r * 2 3 f ' 
i' A PA  24  7 0 

A P A 2 4 4 ’ 

A ttaq 

PA''  A2  uop 
P APAcOlP 

I A GA  ;>  o -•  T 
•’  A P A 2o  1 A 
. A 1A2"40 

r r'  » c 1 t,  ^ j 

I A t'  '2"'  ' ' 

' A''  ■'t  >1  7(' 

A " A 2 ' ‘ > ' ' 

p A A 2 1 r>  r>  *1 

^ r A A 1 

(*  f ' J "i  T • ' 

1 

I ' r M > 

: A P M \ 
t-  ^ P ^ \ ^f4  ' 

' • t ^ 
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70  CrN^INUF 

ATI  PH  = lO.*ALnr.lO(ACL) 

sicrrn  = ACLOO  ♦ cioonw 

71  APGl  = F4  ♦ F5 
PHI  = APStNIAROl) 

IFih.Mnrc.r.T.i)  tutr  = flva 
PWOR  = PWP  / ‘57.295  78 

IF  (PC  .GT.PHl)  rn  TO  72 

IF  ( ITYPF  .FO.  1)  CALL  F G A 1 N { GO, T I L TR , -PH  I , BWDR ) 

IF  I ITYPF  .FC.  2)  GAIL  F GG SG ( GO , T I L TR PH  I ,P HOR AH ) 
fr''PIITF  A^ITF^|^IA  PATTFRA,'  FACTOR, PC,  TC  BF  USED  IN  THF 
CALGULATinN  pF  SEA  CLUTTER  RETURN. 

NCTF  NO  PROPAGATION  FACTOR  MUST  BE  COMPUTEO,  SINCF  IT  IS 

lAGLOorn  iM  THF  mfasurfd  valufs  of  SIGMC. 

FG  = GO 
FI  = FC  «■*  A 

FGCPA  = 10  .♦ALOG  10(F  1 ) 

PSCCH  = XNU«nR  ♦ SIGCOB  - OENOB  - AO. ♦ AL OG 1 0 ( R M E T ) ♦ FCORA 

ATTICP  = ? .OALP HA*PME T 

PSGAno  = PSCCP  - ATTIPP 

PSCAl  (',  = 0.  loPSCAPP 

PSGA  =(  10  .♦>»PSCALG  ) /FAN 

CP  TO  7? 

72  PSGA  = 0.0 

73  JM  = JAM  ♦ 1 

GO  TP  ( 75,  PC,  P5  ) , JM 
75  AJR  = 0. 

ro  TO  102 
PO  pj  = rmet 
CP  TP  90 

F5  RJ  = SPP  F.  1052. 

CO  A TT29='  = \LPHA*R  J 

AJijPprJ  = RJPE  ♦ GJP‘5  ♦ PROP  ♦ GRDB  ♦ WSORPP  -ATT2n'’  * 2.*FFnn 
AJn^'^P  = ?0.<'AL‘^Gin(  l?.5f ) ♦ ?0.*AL0G10(RJ)  ♦ BJDB  ♦ XLJPB 
1 fXI  PPP 

AJRPP  = AJIJPOB  - A.IDNOR 
AJR  PL  G = AJPDP*  . 1 
AJR  = in.**AJPnLG 
IC2  AJLO  = PN  ♦ PRCA  ♦ AJR  ♦ PSGA 
xinwpp  r lC.*ALnG10(  AJLPI 
SNPinP  = PSTAOB-Xl OWOB 
1F( SNR  IPP .LF  .-26.  ) SNRinB=-26. 

SNR  CP  = SNPIPB  ♦ SPGPP 
SA'F  - i C.«=*  ( 0 . 1*  SN’PTB  ) 

CAI  I oarSWRI  SNR  ir;P,N,FA  ,NSW,POI 
IF( NmOUE.EO. A)  POJ  = PO 

in NMpnF  .EG. A)  PNPOET  = (1.  - Pnj)*PNOOFT 

in  NNnpF.FO.  I ) PN(  OFT  = (1.  - POIOPNOOET 

PPriiY  = 1.  - pnoOFT 

CTPTAL  = PSTA  + PSGA  + PPCA  * AJR 

CYNl  = CTPTAL /PN 

OVNPPP  = 1 0.«ALOG  10(  OYN  1 ) 

107  Cr  in  (120,  121,  122,  1211,  NMOOE 

120  THT  = THFTI 
fO  = O.c 


P AnA?060 
D APAOOTO 
PAf'AOOOO 
RAPA’OPO 
PAPAT 100 
RAOATl 10 
R APA"*  1 20 
R ArA3 1 JO 
P A f'  AT  1 40 
R AFATl 50 
PA0A3160 
RAPA31 70 
P APA3 1 80 
P AO  AT lOO 
R ArA32O0 
P A 0 A 0 7 1 0 

0 AnAT220 
RA,nA3230 
RA0AT2A0 
PA  OAT?  50 
I-  A CA7260 
PA^AOPTO 
PACA'’?PO 
P A''AT?90 
PAPATTOO 

R A - A 3 5 1 0 
c A OAT T 70 
R A CAT  TTO 
r AO  AT  340 
F A o A^  50 
R AOAJ  3<.0 
7 AOA7  7 70 
P 7 o A T 3 T 0 
R A-'A  3 iOO 
PA  CAT40  0 
P A o A 3 4 1 O 
P A 3 A 7 4 2 0 
P A f'  AT4T  O 
P A o A"*  4 4 0 
7 A o A 7 4 5 0 
PAOA3460 
r A-  A74  70 

P A o A 7 /,  u o 
RAPA  , 4 c 0 
" A''AT5  ) A 

F « P A A 5 n 

1 A ('  A 78  77 
■ A P A 7 5 7 0 

• p ■ T 5 4 0 
F A P A 7 8 *-  0 
P A P A T88  7 
P A 0 A A 8 7 7 

P A P A 7 S 0 7 

P A I'A  iSP  ' 
P ArAT6O0 
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FP  = 0.1 

R ACA361 0 

rn  TP  icA 

R A0A3620 

l?l 

FT  = 1. 

o A RAT  S3 R 

cr  TP  1?3 

RARA36A0 

1?5 

Ef  = T. 

R A CA  36';0 

l?T 

TFT  = TpPTp 

R ARA3S6R 

CP  = i.s 

’ARA3570 

I 2A 

CAI  1 AF  CFP  I VAR  ,SNP  ,THT,FC  ,F  P) 

AOAASPO 

p rsup  =F  (Jcijm  tpn 

P AD  A36R0 

FT  = SDPTIVAP  4-  FC) 

I A r AO  T np 

R ANGF II)  = R r 

RADAP7  n 

PDA  1 I ) = PD 

P ACA3720 

AF'GI  I ) = FC 

''  AT. *3  77  ) 

rv'ii  1 ) = nvFiR  OR 

P A R A 0 7A  0 

IF(  IPRF  T.F.0.0)  GO  T^  lis 

RADA3  T'iO 

WR  I TF  ( 7,.  1006  ) TR  API  I ) ,RC  ,Pf>  f?C  .DYNRDR 

R A O AO760 

M,  IMF  = N(  IF'F  1 

■J  ADA  0 7 70 

ns 

pp  = Rf  - OX 

RAO  A37P0 

XF'SrAN  = XNSCAN4l. 

R AO  AO  /op 

1F(  Pr  .1  T.PCM  IN  1 Gf'  cp  50 

P AD  A3  000 

?n 

CPNT IHUF 

" A R A 3 0 1 n 

so 

rPNT INUF 

R A R A 3 H ? 0 

cr  AOC  1=1,  IPNf 

R A R A 3 IT.) 

^co 

TP AOI  I ) = TP  AD(  I ) / 0600. 

!■  A ''  AO'T/,0 

IF(  XHSfAN  .GT  .0.  ) PDA  I IRNG  + 1 ) ='>DSLM/  xnSCAN 

R A 0 A ' icp 

F2=H7TrMp 

R ARAO  16  0 

PWR  = PCTCMp 

1 A A 3 >1  0 p 

TAU  = TAI TMP 

R A D A T H o .0 

R FTII'-'N 

t AO  A ^ tR  0 

FF'D 

A DA  0 ) 0 1 

r 
c 

r 
r 
C 
r 

r ♦ ♦ , 

r 
r 
r 
r 

C 
r 

r 

r 
r 
r 
r 
r 


r“-  rPATT 

''rnc.  n ^0,  1 spc,  1 H 10.  vf“.?  ii-.'>‘^-7i, 

This  TDMPMI' r I'lF  CALCUIATFS  PATTFRN  PROPnOAT  I (■'N  FACTTRS  using  l»i’UTI\'<^F 
FROM  PFpnt'T  7C0F. 

Mf-p  I F I i"A  T 'muf  pv  r,  h chlpv  is  aug  107? 


X**<  : 


0[f.|jTi>rn  inputs  VIA  NA'^FLI''^  INPUT  ARF 


:tt*****f*-*-*'‘  * * ^ 


[1  H I 7 O = 


<1  = RAO AR  HEIGHT  I FT  I 

M?  = TARGF  T HK  IGH  T (FT) 

XLAPnA  = ViAVF  IFNGTH  If  w) 

ISC  ^ SPA  STATP  MU'*PFR 

IWF  = RFAH  WIDTH  (nfGI 

TU  T = main  KFAM  PLrVATIf'N  ANGLF  (Cin) 

..  IM..|)M  a^'GI  r UFF  ANTL'h'NA  OOPFSIGHT  AXIS  AT 
Wt-KH  TMf  fATTFPN  FuAGTICN  (T‘Cf"Mr<;  a TSF  SEUAorn 
c l'(ip  T IPh' 


F<  fT 
t f r T 

( rrj 

I ' r I 

r r r T 
f c r T 
f-  r ( r 
I 1 - 1 
I r r T 

»■  1 r f T 

I rr  T 

I I (■  T 
t I ■-  T 

1 r f T 

I 1 r T 
I 1 '■1 
r t r r 
I r r T 

t.  I rr 
r t I T 
I rc’ 

1 r T 


"I ) n 

')'1?'A 
> 1 -> 

V.  T 
O.IC.) 

' 17'1 
n.  in  -> 
n 1 (' ') 

' I ' 1 
' 1 I'T 
' 1 ? > 
1 1 VI 

'V.n 

1 I r , 

M(  T 
1 1 •’  ) 
1 I " I 
■ 1 ■ T 
1 ’0  1 
' ■ I 'I 
n ' ^ y 
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ITYPF=  TVPF  OF  NCP*»ALI7En  ANTFNNA  GAIN  FUNCTION. 

ITYPF  = 1 IS  SYMMFTPICAL  SINX/X  PATTFRN 
ITYPF  = ? IS  A CSC  SOUARFO  FUNCTION 

NjMpnr  = I eOR  ^IAHAR  PPFPATING  IN  SUR  VF  I LL  ANC^^  ( S E AR  CH  ) «rnF 
NMOnC  <r  FOR  RACAR  PPPOATING  IN  TRACK  MOOF  (TILTR  = FLVA) 


IMPLICIT  RFAL*R{A-H,n-7) 

RFaL^-V  RfT.A,AlFA,XL4HnA,  PWR  .GTOR  ,GR  HB  , SNROOR  , XNF  0 P , , X LT  OR  , XI  POP, 
IXLSOH, AMpO,  TAU.PRF ,FAN,PCRAT .PHI  PAX, TYPE. PHI 7ERf RATFl .BWA.BWE, 

2T  ILT , TA.F  INSTR , T I , A ' ,EL ,TF  ,XK ,AI  S S , R A TE , F L PH  A , ANSW , F F A , HR , H 1 ,S PR , 
3AJAP, ANMOOF, ALTGT, S I GM A T ,H2 , VR E L K ,DR , A K2 0 , PJ ,G JDO , RJ , XL J p B . PH , F F , 
ACX.RC  , ELVA.CF.R  ANGF,  TC.FPIR  , TI  LTR.BWOR  .PHORAP.FPFF  ,CFPA,S1'''.S1M, 
SSl.S.VPEl  ,T,TT 


FFCT023O 
FFCT0240 
rr CTOpso 
rFrT02FO 
CFCTOPTO 

rccTopqn 

FFCTOPOT 
FFCTO  300 
rPCTT}  10 
CP  pTor^o 
rFCT0  330 
FFCTO  3A0 
FFCTOOSO 
CFCT0360 
FCOTilTfo 


COMMON  /HlKO/RFTA,ALFA,XLAMOA,PwR,GTOR,CRDR,SNPnr)B,XNFr)P,RR,XLTrP,FFCT03BO 


1 XL  POP, 

XLSOn 

, AMPC.TAU.PRF  ,FAN,PCR AT.PHI MAX, TYPE, PHI  7 FP , P AT  E 1 , RW  A , 

FFCTO’f'O 

2PWF,  T II  T,  TA 

,FINSTP,TI,AZ,FL,TF,XK,AISS,RATF,ELPHA 

,ANSW,PFA,HR,H1, 

hrCTOAOn 

3SPR,  AJA.M,  ANMOCF,  AL  TGT , S I G^A  T , H2  , VRE  LK  , DP  , AK2  0 , PJ  , 

GJOR,0J,XL JDP, 

FFCTOA  n 

AISS,  ITYPF, NMPOF, VP FL 

r r C T 0 A 2 0 

CCMMf'N 

/PIKl/  XXIA),  YYIA),  AC,  0C , CC , DC 

FFCTOA 30 

CrMMPM 

/PLK2/  T,  TT 

FFCTOAAO 

CCMMON 

/RLK 

?/  FF,  PC,  DX,  IHACK,  ELVA,  CE,  PAMGF, 

TC 

FFCTOAFO 

r IM  FNS  IPA' 

WHFTI7),  RANGE  I 10) 

FFC.TOA60 

CATA 

WFFT 

/0.0,P.5,2.0,A.O,6.S,10.,l^./ 

FFCTOATO 

c 

prcTOAPO 

IF  ( IFACR  . 

r.T.  0)  GO  TP  100 

cr CTOAPO 

INOX 

0 

FCCTOSOO 

P I 

= 

3.  lAl  SF2  70C 

r rcT05  1 0 

R CM 

S7.29577SSn0 

r r r T 0 F T 0 

TUP  1 

= 

6.2318=3100 

FFCT0<;3'1 

PI2 

= 

1 .370796300 

F r r T 0 5 A 0 

F PMM 

= 

(076.115300 

pr rj  n ASO 

FTDM 

= 

2. 28CE^30C 

FFCTO560 

P F 

A. DO  ♦ 3AAC.0C  / 3. no 

ffctusth 

C 

= 

20°77.6nc 

rp  CT  os  I’O 

AJ 

= 

0.000 

f r FT  OFot 

ri 

= 

n.mo 

FF  CT06UO 

c 

FFCTOA 1 0 

T II  TO 

= 

C 

a 

>- 

i-rrTo  S20 

BWPR  = 

PWF 

/ RON 

fCCTOA  30 

PFOR  AC 

= PHIZFR/RPN 

rrrTOSAO 

c 

FF  CT06FO 

c 

SFT  WAVF  FF  IC.HT 

FF  r T )»-f  s 

c 

FF  ft  16 

IT 

ISS  Ml 

Ft  CT  .)  S3  1 

HF 

= 

WHFTI IT)  ♦ .3535333900 

( T r T "ISOS 

r 

FFCTO? 1 1 

r. 

S f T o .*  C AP 

FP  POUFNC.Y 

r F ftp;  is 

r 

F F FT  s 

Ff'H/ 

C / XLAMPA 

f F r T n 7 F 1 

C 

1 FCTO  fao 

c 

SFT  T 

ffCT.t  7 = 1 

c 

1 rr  T 1 76) 

T 

= 

SOHTIHl  / H2) 

FF  CT(1  77S 
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IF  ( T .GT 

. 1 .mo ) T = 1.  000  / T 

FF  GTOTHO 

TT 

T * T 

Gf  GTOTOn 

r 

rr  GT  P QOO 

C 

TfTAl  MnOI7rr 

PI stangf 

FPGTOa  19 

C 

Ff  GTOA  70 

PF 

1.2209  * (SOPT(hI)  ♦ SCPT(H2n 

GFGTnooo 

rx  = TT  * 

VPFL  / 6076.116 

FF  GTjqqO 

c 

r F I'.  T n A 9 0 

c 

CU4RTFB  WAVFl  FNCTF 

F F r T 0 n 6 0 

2 

w = 

( XI  A^1nA  / lon.no)  * ftpm 

rrGT-nHAn 

V“i  - 

W * .2500 

PFCTORP.) 

c 

f rGTOPon 

r 

f f r.TPPs 

rr  gtopoo 

r 

cr  CT  091 0 

FAC 

( 2-000  ♦ H 1 ♦ H2)  / FPNM 

FF  G T 09  2 0 

T FMP  = 

( H2  - FI)  / FPNM 

FFGTPmO 

FM 

TEMP  « TFMP 

F FPTno^O 

P = 

(FAC  / WA)  * 1.200 

FFCT09S0 

IF  (P  .GT 

. PH)  p = RH  # .99900 

rFOTOP^P 

n 

IF  ( ( AJ 

.G-r.  O.crqnni  .AND.  (01. OF.  0.99900)) 

G,n  TGI  20 

FFCTOO/O 

c 

FF  CT  nOPO 

c 

OSF 

PPl/rp  FAPTF  FAP.K 

FT  P T 090  0 

c 

FFPT innn 

<;  = 

P / PM 

FFG  T 1 ni n 

s r' 

s 

GFGT  1 Ipo 

<;  IM  = 

S <■  1.20  0 

c r GT 1 0 0 1 

GAll  I^'VFPT(  <;  IN  ,S1W,S1,S) 

FF  GT  I oqo 

'll  = Af  IF 

l(  S 1, .QSP  ) 

f r PT  1 OF  0 

SF  1 

FI  * SI 

f-r  -T  lOf  0 

S''! 

(Il.PO  - SS1)*‘*2)  ♦ (A.PO  ♦ SSI  ♦ 

TT) 

1 r T I 1 7 o 

S? 

(OSORTISOl)  - l.OO  SSI)  / 

(2.00 

* SI  * T) 

PPP  T 1 IPO 

SF2 

S2  * S2 

FGPT  lO''  T 

TFWPI  = 

A. on  * SSI  x-  S2  ♦ T 

r r p T 1 1 o 0 

TFM02  = 

S * ( 1 .no  - SSI  ) ♦ ( l.D  0 ♦ T) 

ri  '•T  1 1 1 0 

SC  2 

1.00  ♦ (TFMPl  / TFmp?) 

F r ' T 1 1 7 0 

PI 

l.PO  / 0 SOP T I SO  2) 

t rri  11’, 

AJ 

( l.no  - SSI  ) ♦ ( 1.00  - SS2) 

‘ P P T 11  A 0 

AK  = ( ( 1 , 

PO-SSl)  ♦ TT<=(  1.O0-SS2)  ) /(  1.00  ♦ 

TT) 

1 P PT  1 1 I 

r.p  TO  io 

r F r T 1 1 F o 

r 

FTP 

flat  pAuTh 

rr  PTl  I T' 

?0 

AJ 

1 .no 

r r c T 1 1 " o 

r 1 

1 .nn 

: 1 'T  1 1 f'o 

AF  = 

1 .F'Q 

rr-PT  1 7^-  ) 

r 

1 ■ T 1 . 1 , 

in 

r iL  T A 

(GAC  / R)  * AJ 

F r P r 1 '71 

p SL  A.»  T = 

PSOR  T ( ( P*R  ) ♦ HF(  ) 

c r r r 1 • ' , 

IP  ( PFl  TA 

.LT.FiA)  G.PTPlOO 

1 F 1-  T 1 •L,-' 

?n 

( ► PV  = 

I a:  n X ♦ 1 

r{  r,  j II  ,, 

IF  ( nr  x 

.FO.  2)  P TF  ST  = RSI  A NT 

‘ r 'T  I 7f  1 

PFI 

'’ATAN  ( ( ( H 1+H2  ) / (FPAJ“  * P))  ♦ 

AK) 

r 1 -1  17  7 I 

GAM  f AF 

FF(  F-h;  ,PSI .RHn.PMl  ) 

r 1 P T 1 JO  -1 

P AF  P ' = 

( OH  T7  / W ) + (PHI  / TUPI  ) 

rr  PT  1 ' 0 

ITP"P  r 

iniNT(FATIP) 

F F (■  T 1 OPO 

FiFPI  t S r 

OFl  PAT(  I Tl  MP) 

' 1 PT  1 ,1) 

PATIf'l 

WAT  in  - WMOLFS 

f T P T 1 '70 
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ALPHA  = TUPl  * WATini 

TFMPl  = (PI  « WH  * nSIN(PSI))/  W 
TFMP  1 = TF*^3  1 ♦ TFMPl 

OL'F  = n .PO 
AX  = O.Cn*  TFMPl 
IF(AX  .1  T.'^y.  )'5|JF  =PtEXP{-AX» 

CALCUI  ATF  FLFVATIDN  ANGIE  TP  THE  TARGET 

TFMPl  = H2  - Ml 

TFMP?  = .66?Anri  * p *P 

ELVA  = OATANE  ( ( TEM P 1- TF MP 2| , ( R*F PNM 1) 

[F(  NMOnE.GT.  1 ) TTLTR  = FLVA 
GAIN  FAGTOP  niRFCT  PATH 

E5  IF  ( ITYPF  .FO.  11  CALL  FGAl N ( FDI R , EL VA ,T 1 LTR ,PwnP I 
IF  (ITYPF  .FO.  21  call  FGC SC ( FOI R , E L V A ,T I LTR , PHOR A D I 

C/LCULATF  CEPDFSSinN  ANGLF  TP  REFLECTION  POINT 

H = HI  / FPN'M 

TEMPI  = OARSIN  (RF  ♦ rCOSlPSI)  / (RE  ♦ H)) 

FFPA  = PIE  - TFMPl 

r GAIN  FAfTOF  fcFLFCTEC  PATH 

IF  (ITYPF  .FO.  1)  CALL  FGAIN(FREF,DFPA,-TILTP,RW0R) 

IF  (ITYPF  .EO.  2)  CALL  FGC SC ( F REF ,OE PA ,-TI LTR , PHO R AT ) 
r = 01  * RHP  ♦ RUF  * FREF  / FOIR 

c 

FF  = OSORT  (1.00  ♦(0*0)  ♦ (2.00  ♦ 0*  OC OS ( AL PH A ) ) ) 

FF  = ABS(FOIR|  * FF 

IF  t INPX  .GT  .21  CO  TO  200 

ICiJR  = INPX  ♦ 2 

XX(  ISUP  I = R SLANT 

YY(  ISUP  ) = FF 

IF  ( iMpx  .FC.  1 ) GO  TO  130 


R7'M 

= 2. no 

♦ 

PH 

CALL 

prpAFT  (HI, 

H?, 

R NM  , 

FMH7,  FOR) 

F F 

= ( 10.00) 

♦ ♦ 

(FOB 

* .0500) 

XX(  2 1 

= RNM 

YY(  2 ) 

= FF 

RMM 

= 1.100 

* 

PMM 

C Al  1 

PFPACT  (HI, 

H2, 

RNM, 

FMHZ,  FOB) 

FF 

= ( 10.00) 

(FOB 

* .0500) 

xx( 1 ) = FNM 

YV( I ) = FF 

CALL  CURVIT 
Pf  = P A^'GF(  1 ) 

PFTnoN 

ICO  IF  (tr  .(T.  RTFSTI  GO  TO  120 

FF  = PC  ♦ RC  ♦ ( CC  + RC  ♦ I BC  ♦ RC  * AC  ) ) 

r 

IF  ( F F .1  r . 1 .F-M  FF  = l.F-f 
R f T I) P N 
r 

C SFT  VA  UF  ('F  R FPR  INTPRFFRFNCF  EPNF  HACK 


FFGT 1330 
FFCT 13A0 
FFFT  1 3P0 
FFCTl 360 
FF  CTl iin 
FFGT 1 3P0 
FFCT  13FJ3 
FFCT  KOO 
FFTTI-VIO 

fFPti^20 
FF  CT  1^,30 
FPET 1 ^40 
FFOT  lASO 
FFCT  1A60 
FFCTl A70 
FFOT 1 4B0 
FFCT14P0 
FFCT 1 SOO 
FFCT  l-jlO 
FFCT 1S20 
FFCT IS30 
FrrTlS40 
TFCTISSO 
FF  CT 1 SFO 
FFCT 1 S70 
FFCT 1 SPT 
FFCT  15^0 
FFCT  1600 
FFCTlblO 
FFCTl 620 
FFCT16J') 
FFCTl 640 
FFCT 16S0 
FFCT I 660 
FFCT 1470 
FF  TT  1 6f:0 
FFCTl 6P0 
( ftT 1 7P0 
F F CT  1 7 1 0 
F F r T I 7 ’ T 
F F r T 1 7 3 0 
rcTT 1 74  ) 

t FTT  1 740 

f F CT 1 76^ 
F FTT  1 770 
t r r T 1 7 fKO 
• Ff  T 1 7T0 
f c CT 1 "OO 

rr  n 1 o 1 0 

r r r T 1 o -•  ••) 
F r r T 1 " vT 
F F r r 1 O'.  0 
• Fft 1 H^O 
Ml  T 1 Pf.  ) 

F r r T I J 70 


120 

T FM  P 1 = 

(PC  ♦RP  ) - HH 

FFPTI BPO 

IFAPK 

2 

FFPTlRgO 

If  (TFMPl 

.LE.  n.OOI  GO  TO  300 

FFFT 1 OOP 

P = 

nSORT( TFMPl) 

FFPT  19  n 

PP  TO  1C 

FFCT 1920 

r 

FRCT 1030 

r 

FFrTl9A0 

1 ?o 

R = 

R ♦ .99P0 

f FCT lOMO 

GO  TO  IP 

FFCT I960 

r 

FFCT  1970 

2C0 

pr  Tiic  M 

FRCT 1900 

JCO 

IFAPK 

FFCT 1 QOO 

dFTIirn 

FFrT?O00 

FA  r 

FFCTpoiO 

';l;0PnuTI^F  mAPSWR  ( SNOBt  N,F  A.KftSfi  .PN) 

I^PUTS  APF  — SNnp,  s IGMAI-TP-NOI SF  PPWFR  RATIO  IV  rFFIPrLS 
N',  ^U«PFP  TF  PULSFS  INTFGRATFO  — 

FA,  FAl  PF  Al  ARM  PPORAPILITT,  FXPRRPSFO  AS  ARSQLUTE  VALDF  OF 
FF  T FM  (F.G.f  FA  = MFANS  10. ♦♦(-R.)  FALSF  AIAdm  PRCRARIL 
KASF,  SWFPLING  FLUCTUATIPN  MODEL  t Wl  TM  kASF  = 0 FOR  NPNFLUP. 
PDTPlJT  PN  IS  PPOPAPILITY  OF  OETFCTION 


"A  R soo  10 
v<  AO  poo?  0 
VA  RPOOOO 
"Aopno'iO 
MAPpo')*;  ■) 
MAC  SOOVO 


AS  ARSQLUTE  VALUF  PF  RPWFO  mac'PO')';') 
FALSF  ALARM  PRPRARILITY  — macpoovO 
KASF  = 0 FOR  NPNFLUr.TUAT  IMG‘'Ar- SOOT  T 

M APSOORO 
M ARFOOOO 

PHYSICS  LARFRATCRY,  VAMFP 


F'SFF  '■A'  program  WRITTFH  ATJHU  APPLIED  PHYSICS  LARFRATfry,  VAmfp 
SIIPPPUTIPF  madCU*'.  MPDIFIFP  AT  NKL  BY  L.  V.  BLAKE.  THIS  VERSIPN  ‘'apsOUO 
FATTF  APR  II  1071  M.psoi?0 

APt  VFPSIOM  PFFIMFP  FA  AS  FALSF  ALARM  MIlMRfp  ( maRFPM  FnV'FFPT). 

VPL  ‘'nr  CHANGFO  THIS  TP  FALSE  ALARM  PPPHABILITY  (AS  OFFINF-P  ARP  V F ) '•  A R c 0 1 4 0 
SPMF  PTFFP  CFAMGF'  ALFP.  "‘PSOIFO 

M ,"RSf)l  t,  0 

Pr'UF'l  r PPrriSIPH  F M>0  , yR  PP,r,AMPR,  PYBf  H,  YO  , FT  ,Y  1 , F I ,ST  F P,  YR  •.'Ao<;ni70 

p^'U31F  P3::isnN  OGAM,  OEVAL,  SUMLPG  , iJML,  FAN,  F^ 

M » O I 0 

FOMpiiTf  ' AwFljM-SHf  RLING  OETFCTION  PROP  A R I L I T 1 F S -Aocmoo 

• < • i'  ,;r'  1 ] .-> 

CATAMPPfVtFARopv/C.O./  ''/>i.S0  7?-) 

rON'VFRT  5/M  IM  PM  TO  numerical  S/N  patio  •>a^5i)7>0 

■ ' A C <;  O ? /:,  0 


SNR  = 1 C. ♦♦(  SNOR*  . 1 ) 

Mrop  = ] 

IF  Pr'OF  IS  1,  CONVERT  FA  TO  MFAN  E TPON'FNT  of  calSF-MARm 
RFiih  Ap  IL  I TV  PATHFd  THAN  MAPCU”  FALSF-ALARM  mijmrfR 

IF  (MOpF)  “Pn,  RCO,  900 

fan  = OIPGIOI  I5LPG(  .snni/OLPGI  l.on  - M 0.001  *«(-FA)  ) » 

PP  TO  9C5 
FA*'  = FA 

Tcsr  rniiTs 


•*'  f5,)?(,.o 

v‘  A -■  R n / 71 
*1  , C C > ('  "> 

' u 5 o ■>  >;  o 
>•  AC  so  1 oo 
'•  A'S  1 ■>  1 1 

''SO'?  ■; 
•* , o c n 7 V1 

“ 'f'S,- 

M A ’ S o ‘ 0 
'•  A'>  S(M  ( ■> 
••Also  1 ' o 

AM  SOT  F ) 


EPS  1F(  V ) CO, ON,? 


2 

IP(  CA  98,  3 

MAoSOROO 

3 

IF( KASF  ) 09, A, 4 

MARS0400 

-V 

IF(kA<;F-4)  5,5,08 

MAPS04I0 

r 

M ARSn420 

c 

fcT  IW  A-rp  8 lA  S LE  VF  1. 

M ARS0430 

r 

M A1  SO440 

5 

FF'Po  = r. 

MARSOASO 

6 

F^'PP  = FAN 

M ARSn4f'0 

FM  = N 

MARS0470 

YPPF  = C. 

MARS  04  80 

IF  (NPPFV  .CQ.  M .AMO.  FAPPEV  .EO.  FA) 

GO  TO  777 

“APS  040  0 

tF(N-l2)  7,7,8 

M ARSOSOn 

7 

YPPP  = FN*(l.nO  + 2. ?Dn*ENPR/EN**(  (2.00/3.00)  . 0 1 500*  FNP  p ) ) 

«ARS05  10 

GO  TO  11 

«ARS05  r>0 

8 

YPPP  = EN*(  1 .♦  1.  3*FNPP/FN**(  . 5+-.  OU*ENPP  ) ) 

MAR  SO  5 30 

r 

MAPS0540 

r 

COMPUTF  PIAS  LEVFL 

MAOS0550 

r 

M AR  S0560 

ll 

FA'PP  = 10.**FNPR 

M A" S05  70 

GAMPP  TT  PGAM(  Y8PR,N- 1 ) 

'‘'APS0580 

PYP  = . 5**(  1 . /FNPP ) 

M APS  ORRi) 

SGML  = SUMLOGfN-l) 

mar  SOiSOO 

IF( GAMPP-P YB  ) 10,12,12 

M A R S 0 1 0 

n 

F=.l 

‘*AR  SOGRO 

Cd  TO  14 

’•  AR  S0G30 

1? 

F=-  . 1 

MARS  064  0 

S'* 

YO  = vppp 

MARS0650 

FO  = OF  VAL  (YC.M-  1,  SUMl  ) 

•'  ARSI'GG  O 

lb 

Y1  = YO*H 

M AR  S06R0 

FI  = DFVAL  (Yl.N-  l,Si)*'L  ) 

•'  AR  SO  GO  3 

STFP  = GAMPP  ♦ H*(Fn+Fl)/2. 

M AO  SORRO 

1 F(  OS  ICN(  1 .00,STFP-PYP ) -0 S IGN ( 1 . 0 0 ,H ) ) 

oc 

c 

cc 

M AR  90  ROO 

18 

YO  = Y 1 

MA  RSO  r i 0 

EC  = FI 

MAl’SO  720 

GAMPP  = STEP 

M A R S 0 7 A ) 

rr'  Ttl  It 

M A s 0 7 4 '' 

20 

1F(  F ) 22, 24, 24 

M AR  SO  /P  0 

22 

YP  = Yl  - w*( pyP-STEP ) /(GA«PR-STFP) 

MAOS  0 7 7-0 

rr  Tr*  3C 

'*  A 0 S 0 7 7 0 

2^. 

YO  = YO  ♦ H* ( PY P-G AMPP ) / ( 9TFP-GAMPR ) 

M.A  ’SO  7u  A 

.0 

PIAS  = YH 

M AR  S0  7'’  ) 

777 

VR  = R I AS 

■J  A R 9 3 , -A  -> 

YC  = YP 

'•  AR90  ',10 

MPRFV  = A' 

M AR  9'"’,:  ' 

FAPRPV  = FA 

M AR  9 0'’  a 0 

r 

MAPS'’  140 

r 

SFLFCT  m_s  gasf 

•'  A c S 0 8 8 A 

c 

mARSO'17,0 

Y = SNP 

MARS 0870 

K = A S r ♦ 1 

M /\R90R<J0 

GC  TO  ( ICO,  200, 300,400,500)  , K 

ARS0800 

r 

'»  AR  S O ' ' o 3 

r 

GASF  0 

« A ’ S 0 ■ 1 1 3 

c 

MARSO'J  20 

ICO 

• 

c 

M 

M AF  Sn<7  n 

( K ♦^ ) /YB 


( KS+M 


o = f.M<r  X 

TF(  yr-P-F'''  ) 1*50,  102,  102 
kS  = -( FN  ♦ l.OC»/2.n0  ♦ OS0BT( ( (FN-1.00) /2.00)**2  ♦P^YP) 
K«;  = y.«yn  (kS.O) 
rs  = 1 .-r.A'M  YC. , KS*N- i,  TN) 

T<;  = FV'Al  ( P,kS)*G^ 

c = r,s 

K = P S 
TP3W  = TS 
Tl  = T^' 

Tff'P  = «:|i«i  + TPpy 

IK  SU'A-TF'IP  ) 112,116,116 

FF'M  = TFMP 
IP(K  1 1 16,  116,  116 

TFPy  = TFPM  + FirAT  (K  )♦  (C- TL  I / ( P*G  1 
r = r,-T| 

K = !<•  - 1 

Tl  = Tl  «ri  <’AT  ( K +6  ) /yb 
c('  T'-'  1 m 

Tl  - rr  /PL  'i  T (KS+M 
K = k s+  I 
r = rs+Ti 

TFPM  = TS’<'n*n/{  GS*FinAT  (Kll 
TFMP  = SU’,,.TCPM 
IFI SUM-Tpypi  122,1FC,1FC 
SLIY  = Tpyo 

TL  = Tl  *YP/FLnAT  ( KFNI 
K = K ♦ 1 

TFPM  = TFPvtp*  ( GtTl  I / (r,*F  LOA  T IK)) 

G = r,+TL 
GT'  Tn  1?0 

KF  = -i.m  - FM/2.no  •*■  r)SOOT{FNf*2/6.oo  ♦p*yp) 

KS  = MAXO  (YS,n| 

GF  = GAY(  YF  ,KST-N-  1 ,TAJ1 
IF( rs  ) 176, 176,  156 

TP  = PV  AM  “fk  p)#r.p 

r = OF 

TrpM  = Tp 

k r K S 
T|  = TF 

T ry  p = piiM  + jrpy 

ir(  SI.'Y-  T:  'IP  1 1 6?  ,1  66,1  66 

SUM  = TF"P 
!F(K  I 166, 166, 1 66 

TCPy  = TFPM^flOAT  (K  1*  (r,4-TL  1 /(  pogi 
r = r*Ti 

TL  = TL  ♦PI  riA  T ( K + 6-1  I /Y^ 

K = K - 1 
GF  TP  160 

TL  = TA'*YP /PIMAT  (KF6k|) 

K = K 1 
C = GS-Tl 

TFPM  = TS*P*G/ ( r,S«Fl  OA  T (Kl) 

TF«P  = FU*'  ♦ TFPM 
IF(SIK-TFMP|  172,176,176 


N-  IflJ 


•1  A^sn^AO 
*<  kP  sno6() 
MA56PO6,0 
MAPSOP  70 
M AaSO^lPP 

MATFOPPO 
MAO  61 001 
map  S 10  1 •« 
M A^  61 OPP 
M A'’6  I 0 .M 
M A 76  1 ) 60 
M A'7  6 I OFO 
MAOS106  0 
M AD  <;  1 070 
MAOS  1 OPO 
M A )S  1 O'l  1 
MAOS  1 100 
M AOS  1 1 n 
M A 0 S 1 I ' P 
M AO  S 1 M O 
M A '>  S 1 I 0 
M AOS  n *^0 
MAPS  1 1 FT 
“A.  PS  117  1 
'*  A 1 S 1 M ) 
M * o s 1 M 0 
■'  A-'Sl  POO 
M A0S12  10 
M A 0 S M 7 P 
MAOS  1 ■'  1 

MARS  1260 

M A o s 1 ,0  0 

M * ••>  S M 6 P 
M A 0 S 1 7 7 0 

y A o s ij  0 0 

M A 7 S M o O 

MAOS  1 

M A 0 S 1 » 1 1 
M A J S I O •>  1 
M A < S M o •< 
" AOS  1 360 
A A > S 1 
•M  0 S M t ) 
‘■AkS  1 M 1 
MAPS!  •>  r p 
" AO  S 1 ' '0 
M A ' SI  OOP 

• A p S I 1 A 
"A  RS  r.  pp 

• AOS  1 6 AO 

• A 0 S 1 6 1 

M AP  S 1 6 « ,A 

MA''S  1 '.SO 
M A P S 1 6 6 0 
MAOS  1 6 MO 


a 


n n r»  o o o 


17?  SU'^  = TF«o 

Tl  = Tl*YB/FLn4T  (K*N» 

TFPM  = TEPM*P*<r,-TH/(r, ♦FLOAT 
C = n-TL 
K = K +1 
GO  TP  170 
17A  SUM  = l.-SUM 
ISO  PV  = SOM 
GO  TP 

r />,  SF  1 

?Cn  IF(N-ll  210,210,?20 
210  PM  = nrxp(-Y»/(  i.no  ♦xii 
cr  TP  po 

720  TFMP  = 1.  ♦ l./(FN«X) 

r'  = l.ro  -CAM(YC,N'-2,D0“)  +r)F  XP  ( (EN-1.  nO)  ♦ALOGl  TP  mP) 

1 -Yn/(  i .PO+FN  *x  ) ) 

I ♦GAM(YC/TEMP,N~2 ,0UM» 

pp  TP  cc 

C A S f 2 

3C0  IF(N-l)  310,310,320 
310  PN  = CFXPl-YB/l.CO+X) 

GP  TP  PC 

320  PK  = 1.  - GAM( YC/( l.^Xl,N-l,nUM) 

GO  TH  t)Q 

CASE  3 

SCO  IF(M-2)  ^10,A20,A3C 

AlO  PN  = (l.nO  ♦ ?.nO^X^YB/(X*2.DO)^^2)*DFXP(-2.00^YB/(2.nO+xn 
GG  TP  SC 

A20  PN  = ( l.[)0^YR/(  l.nO>Xn*DEXP(-YB/(  I.D04-X)  ) 
rp  TO  so 

<*3C  C = 2./12.*FN^X) 

r = i.-r 

IF(Y3*0-3N)  AAC,45C,S5C 

AAO  SUM  = 0. 

TFPM  = 1. 

J = N 

SA2  TFMP  = SUM+TEPM 

I F(  SpM-TFMO  I 4^,6 

4iSA  SOM  = TFmp 

TTdm  = TFRM^vn^p/FLOAT  (J) 

J = J»1 

rr  Tn  /,42 

AS6  PN  = 1.  - r.AMlYG  ,N-2,r)UM)  ♦ C ♦ YR  *E  V AL  ( Yt  , N-?  1 

I ♦ r)*FVA|  < YT  l)  ♦ ( i.4.0YR-{FN-2  . ) ♦r,/OI  *SOM 

rr  TP  oc 

A*0  PN  = 1. rO-GAM ( VC ,N-3,nUM  ) ♦ YR^E VAL ( YC , A-31 *0/0 

1 ♦pcxP(-r^Y'>-(  FN-?.on »•  alog <01 » ♦ (I .oo^r^ YR-(FN-2 .00) ♦r/o) 

2 •r.AM(  Yr>n,‘)-3,nijM) 

rp  TP  so 


r 

L 


MARSl^SO 
MARS1500 
MARS1510 
MARSl 520 
MA^SISSO 
MARS  1 5<,0 
-APS  1550 
MARSl56a 
MARS1570 
M ARSI 580 
•»  AR  SI  5SO 
MAR  SI  600 
MAPS  1 61 0 
MARS  1670 
MARS  16  30 
MARS  1 6A  0 
MAPS1650 
MAUS1660 
MAOS 167C 
MARS  1 680 
MAPS  16S0 
MAO  SI  700 
MAPSl 710 
MAR  SI  72  0 
MARS1730 
MARS  1 7A0 
MARS  1 750 
MARS  1760 
MARS1770 
MARS17H0 
MARSl 700 
M APSIROO 
MA  RS 18  10 
MARS  1R?0 
MARS1830 
MARSIRAO 
M ARSl 350 
M AR  SI  360 
M AT  SI R70 
MARS  1330 
MARS  1800 
Mfl!jc;iqOO 
MAPSIOID 
M ARS 1 O/P 
M APS  1 S70 
»<ARS  1060 
MARS  lO  80 
MARS  1060 
MAPS  1 070 
M A D<;  1 Q oo 
MARS  I 093 
MARS  700  0 
MARS  20  10 
MARS  20 20 
MARS2O30 


N-  136 


c 

r CA':f 
r 

■iCO  = 0. 

c = ;./(2.*x) 
r = 1 .-r 
0 = c/n 
p = r*YP 

KS  = ( 3 .m’kFN  •»(  Yn*n ) ) /2.no-nsoRT  ( (F  N-i . no*  ( YR*n) ) .m 

1 <•{  Yn*n  (« ( Ff!  ■*!  .m  ) ) 

K«:  = (KStN) 

KS  = MAYO  (KS,n) 

Y = K s 

J = Ai-K 
FY  s = Y s 

K = Mir'o  (Y<;,N) 

I^(Yn-F^  *(  l.tO)  ) t5C,‘)Cl,50l 
5CI  GF  = 1.  - (;am(p,7«M-1-KS,  TN) 

IP(r;si  F2f:,52fr,?c? 

= 07  TF  = orxP  ( fk  S*A|  T (r  )+ (FM-F  KS)*ALnG(  n)  nr,(fg)-FnYLi'r,(KS  ) 

1 -su‘n.nG(  J )+ALnr,  (r.S) » 

r = n 5 
TFFM  = TS 

Ti  = T^' 

S in  TFYp  = SUM  + TF3M 

IFISI/M-TFVPJ  512,516,526 
5 12  SUM  = tfmp 

1F(K ) 516, 516,515 

515  Tl  = TL*P/FinAT  (2*N-K) 

TFFM  = TFPM^FinAT  (K  )*(r.^TL  )/ (Q^FLOAT  (X'-K+ll^G) 
c = r.+Ti 

K = Y-  I 

r('  in  5 10 

516  ir(KF-\)  51P,  526,526 

51P  TFPM  = TSx=o<'FLnAT  {N- K S ) ♦ (G  S- TN ) / ( F LCAT  (KS<-l)*GS) 
r = r,5-Tr’ 

T|  = T^  ♦Fl.f'AT  ( 2*f'- 1-K  S 1 /P 

Y = Y S+  1 

•=20  TFMP  = SUM  + '^FRM 

I r(  som-tfmo  ) =22,526,  526 
52’’  FIJM  =•  TFMP 

tr{K-M)  “^25,  '26,526 

525  TF';**  = TrFM»o*FinAT  (N-K)*(G-TL)/(FLPAT  (Y«-l)*r,) 

C ^ r.-Ti 

Tl  = Tl  *11  TAT  ( 2*N-l-K  ) /P 

Y •=  4 1 

f ('  Tn  t 20 

= ^f.  px  = t:(jM 
rr  Tn  nc, 

= =0  CS  = ''.'Ml  P,  2*M-1-Y  S,  tn  ) 

IFIG'I  576, '76, 552 

552  TF  = PF  XP  ( FK  S*Al.  OG  (F  1 4(E  N-FK  S (♦ALOGID)  ♦SUMLrir,  { N) -SUMIPG  ( YS  I 
1 -SUMLnCt  .1  I^ALOGIGS)  > 

c = rs 

Tfff-  = IS 


M ARS2050 
*1  AR  S2050 
MAP  S 2 06  0 
MAOS2O70 
MAPS20rO 
M AP  S2  OPO 
M AR  S2 1^0 
MAR  S2  I 10 
MAP52120 
M A PS  2 1 0 o 
MAPS  21 5 0 
MAPS?!  'iO 
MAPS2 I 60 
M AP  S7 1 7 0 
•1  ARS^  1 *"0 
•<  AP  S7  1 PO 

MAR 5 2 700 
MAPS22  10 
M AP  S2270 
MAPS  7 700 
MAPS225  0 
“APS  7 7 SO 
MARS??6,0 
MARS  7770 
M A p s 2 7 Fi  0 
MAPS2760 
M ARS7  300 
MAPS2 310 
MAOS7370 
MARS23O0 
MARS2 350 
M A P S 7 0 S 0 
M A PS2  3 *-  T 
MAPS737C 
MAPS?*'  ) 

MA  PS  7 3 T T 
MAPS75T"' 
’•APS  25  1 0 
M A P S 7 5 T 0 
M A S 7 5 P 6 
MAPS2<'.5  ' 
M A p S ’ 5 • ' 
'■'AOSTA'  0 
" A P S 2 5 p n 
M A p S 0 5 S ) 
M A R S 2 5 6 ■; 

" A ')  S 2 S n 0 
M A p S 2 S 1 1 

MA0S2S2O 
M A l>  S 2 S ■>  1 
" A P S 2 o 
M A P S 2 S S 0 
“A  PS2S6  T 
M APS  2 S 70 
MARS2  SFO 


N-  185 


56^ 

*562 


5^6 


5 in 

572 

57^ 


57ft 


CT 

51 

52 

53 

54 


59 

o 


TL  = TN 

TFmp  = SUM*TER'1 

[F(  SI/M-TfMp  ) fe2,5ftft,566 

SLI^<  = TFMP 

IF(K)  ^66,566,564 

TL  = TL*P/FLn4T  ( 2*N-K  ) 

TFWM  = TFPM^FLHAT  ( K J ♦ ( G- TL  ) / ( 0*F  L04  T (N-K«-n*G) 
r = r.-TL 
K = K-  1 

rn  TO  5ft0 

IF(k5-M)  568,576,576 

TFRM  = TS*r)*FLOAT  (M- K S ) ♦ ( G S+ TM » / (F  LOA  T (KS+l»*r,b, 
r = GS+TN 

Tl  = Tr'^FLPAT  (2*M-1-KS»/P 

K = K S+  1 

TFf'P  = FIJM  + TFPM 

I F(  SI)''- Tpmp  I 572,5  76,  57ft 

cijM  = TFMP 

IF(K-N)  '74,576,576 

TFP"  = TFR«*C*FLnAT  (^)-K)♦(G♦TL)/(FLOAT  (Kfl)*G) 

C = G+TL 

Tl  = TL*FlOAT  (2*N-l-K)/P 

K = K tl 
Cr  TO  670 
P'’  = l.-Sl)M 
GP  TP  OC 

SFT  PRPPARIl  ITY 

T5( PM  » 51,04,92 

PM  = n. 

FT  TO  54 

IF(P7:-1.)  ca,94,Q3 

PA  = 1 . 

R F T UP  M 

FORftF  ^.F55/\rE  for  RAO  INPUTS 


MARS2590 
MARS2600 
« ARS261 0 
«ARS2620 
MARS2630 
“4852640 
“ARS2650 
''AR.S2ft60 
“AR52670 
“ARS2ftOO 
“ ARS26Q0 
“ARS  2700 
“ARS?  710 
“ARS2720 
MARS2730 
“ARS2740 
“4852750 
“ARS2760 
“ARS2770 
“A  852780 
“ARS2750 
“ARS28O0 
“ARS2R10 
“AR52R2a 
MARS2R30 
“ARS2840 
''ARS28  50 
“A"S28ftO 
MARS2R70 
“APS2880 
“ ARS2R50 
R AT  S2500 
MARS  25  10 
“ARS2520 
MA8S25  30 
K ARS2'^40 
“ARS2550 
“ARS25ftO 


WRITr  (6,  51  N,FA  ,SNR,KASF  “4852^70 

FroMflT  ( IHO  /50H  U^'R  F A SON  AR  L E CALL  SEQUENCE  TO  “ARCUP,  7FRP  RT  5 UL  T '*  A R5  25  30 

1 7MS  given  //4H  N = IH,5X,5HFA  = E 1ft . 8 , 5X , 5HS NR  = “4852500 

2 R16.P,  5x,6HKASE  = 18)  “AR53ilOO 


PN  = 0. 
PIAS  = 0. 


“4DS3010 
M 4R  5 3 02  5 


R FTURN 
FA'O 


’1  4053035 
“ ARS3040 


j 


V 


SLPRPUT  INF  FGASC  ( GMOP  “ ,4  NG  1 , ANG2  , PH  OR  A D) 
PI2  - 1.57C75630C 

PI  PF  = AMGl  - ANG2 

AMOO  = PF'FF  ♦ PHopiO 

IFI  4»  0’ .r.T  .PHOR  AD)  GO  TO  10 

T = SIMIPHOPAD) 


f r.rsoo  1 5 

FGCSOOJO 

80555030 

80050040 

ro.o5005o 

80050060 


N-  I B6 


•iMMiMilialMHiki 


PUP  = .89*T 

X = ( 7Pi45*SIN' (PHEF  ) ) /F)WR 
/»X  = ^PS(X| 

IF  (ax  .r,F.  .ooncil  on  5 
Gfofm  = 1.0 
cr  TO  30 

s c^'^PM  = SIN(  xj/x 
tFAMQ  = afl<:(PHFC  » 

G(^  TO  20 

13  GNnpw  = sui(  PHTia  AD/SU  ( ANG?) 

A PANG  = AHS(ANG3) 

20  IF( ARaKr.GT.PI2»  GNOPM  = . COl 
30  PFTIIPN 
FX'O 


Pl.'ATTI^A'  P'GA'‘(P,\) 

rnilFLP  PprcISIPM  SUM,  TFPM,TFMP,FJ 
r JMTFGPAL  = 1-(SUM,  J=C  TO  N, 

su'^  = n. 

K = H 

(F(K-N»  inC,?CC,2CC 
ICO  J = v + 1 

SU«L  = SUMLCG(J) 

TFPM  = nFVAL (3, J,SUML) 

10  TFMP  = 5(|M+TFPM 

IF(SU«-TFMP)  15,20,20 
15  SUM  = TFMP 
J = J + l 
FJ  = J 

TFRM  = TFPM#p/FJ 
rp  T(^  1C 
20  OGAM  = SUM 
R FTUPAJ 
2C0  J = N 

SUMl  = SUMLrC(J) 

TFPM  = rFvai (3, J, SUML ) 

30  tfmp  = cijm  + tfRM 

1 F{  SUM-TFMP  I 35, An, AO 
35  Sll«  = TFmp 

I r( J-  1)  40, ?F, 36 
’S  FJ  = J 

TFPX  = TFp\1*rj/P 
J = J-  1 

rp  TP  30 

AO  rfAX  = l.-Sl'M 
P FTU>  N 
FAin 


FGCS0070 
FGCSOOfiO 
FOGSOOPO 
FGCSOlOO 
FGCSO  1 10 
Prrsol20 
FGCS0130 
FOCS0140 
FGGSO  150 
FO.rsO  163 
PGGSO 1 70 
FCrsoiP.) 
cor  SO ! PO 
Forsnooo 


OGAMOO  10 

OGAM,  DEVAL,  P.  SUMl,  SUMl  OG  OF.  AM00?O 
OF  FXP  (J*ALOG(B1-«-ALOG(  \'FAnr'GAM003n 

OG  Amooao 

CGAM0050 

PGA  MOO 60 

r;GAMnn7o 

CGAMOopo 

GG  AM  ono  A 
DG AMO  100 
OGAMO  1 10 
nr  AMO  120 
or.  A MO  I 30 
or  AMO lAO 
OGAMn 1 50 

or.  AMO  1^0 

''GAM  01  70 
or,  AM  01  9 0 

or  AM  n I <->0 
nr,  A MO  70  0 
'’GAM02  10 
or AM0770 

or,  AM  02  A'P 
or,  AM024n 

or,  AM  c;  ) 
nr,  » vif)  J <,  A 
on  AMO  770 

nn,  i>  >j(  r > i>  n 
p.  r • V n ->  f,  n 
nr,  Ay  n 1 A . 
nr.  A , I 
r r • = 


FUATTIfN  OEVAL  (Y.aJ.SUMLI 
rnuPi  F PFrriSlPM  XPnN,rN,nE  V M 
YPorj  = -M 


Y , SUHL 
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unclassified 


LTV  AtKOSPACt  tOKH  OALLAS  I EX  VOUSHT  SYSTEMS  01 V F/G  15/7 

SEATIDE  analysis  PROCESS.  VOLUME  IID.  NAVAL  ENGAGEMENT  MODEL  (N— ETC(U) 
FEB  75  DAAB09-72-C-0062 

VSD-00.1636-VOL-2D-REV-A  NL 


Fl'NCTIPM  GAH(n,N,TN» 

SINGl  F PRECISION  VERSION  Of  OGAN 

SUM  =0. 

K = R 

IF|K-N)  n0t200,20C 
ICO  J = M4l 

TFRM  = EVALIBtJ) 

TM  = TFPM*fLOAT  (J)/B 
10  TF«P  = SIIM*TERM 

IF(SUM-TFMP>  lSf20t20 
15  SUM  = TEMP 
J = J+l 
FJ  = J 

TERM  * TERM*B/FJ 
GC  TO  IC 
20  GAM  * SUM 
RFTURN 
2C0  J = N 

term  a FVAL(RfJ) 

IN  = TERM 

’0  TFmF  = SUM 4 TERM 

IFISUM-TFMPJ  35tACt<»0 

35  SUM  = TEMP 
IF(J-1»  A0,3Ft3t 

36  FJ  = J 

TERM  = TERM*FJ/B 
J = J-1 
r.r  Tr  3C 

AO  GAM  = l.-SUM 
R FTUR'J 
EMC 


FUNCTICN  FVALlYfM 
CO'JBl  F PFFCTSION  SUMLOG 
XPrjN'  = -Y 
IF(N)  20,20,10 
10  EP  = N 

yPON  = XPnf'4  E^i*  ALOGI  Y )-SUMLCG  ( Nl 
ir  (XPOA  .LT.  -2FC.1  GP  TP  30 
2n  FVAL  = FXP  IXPOM) 

GP  TP  AO 


N-  I0fl 


GAM 

0010 

GAM 

0070 

GAM 

00  iO 

GAM 

OOAO 

GAM 

0050 

GAM 

0060 

GAM 

GOTO 

GAM 

OOflO 

GAM 

POoo 

GAM 

0100 

gam 

Olio 

GAM 

0120 

GAM 

0130 

GAM 

01  AO 

CAM 

0 150 

GAM 

0160 

CAM 

0170 

GAM 

0180 

GAM 

Ol?R 

GAM 

0200 

GAM 

0210 

GAM 

0220 

GAM 

02  30 

GA" 

02AO 

GAM 

0250 

GAM 

0260 

GAM 

0270 

GAM 

0280 

GAM 

0200 

GSM 

0300 

GAM 

0310 

FV  ALOO  in 
Fv  Ai.no  20 
FV  AL0O?n 
EV  ALPOAO 
FV  AEOO50 
FV AL0060 
FV  AL0070 
FV AEOORO 
FV  AEOORO 


30  CfVM  = 0. 
40  PFTl/PN 
fMO 


FUNCTIPM  SUHLOOIN) 

rrUPLF  PRFCISION  A,  P,  SU-LOG 

CIMFK'STOK  A(IOOO) 

CATA  DIMA,nL'MP/0.,0./ 

A'»'AX=10C0 

IFC  nU“A-nU*«B  I 20,lCt2C 
10  PUMA  = 1. 

ri.'Mp  = p. 

NtAST  = 1 
A(  1)  = C. 

20  KA'  = TAPS  (M) 

IF«F'M-n  30,3C,^C 
30  SUMLPG  = 0. 

RFTDPN 

ir(MM-ALAGT)  50,5C,60 
50  SUFM  (’C  = A(MN> 

OFTUFN 

60  K = NlAST+1 

IF(NN-NPAX)  7Ct7C,80 
70  cn  72  I=K,NM 

72  Adi  = Ad-U  ♦ CLOGirFLCATd  U 
W|  AST  = NM 
GO  TO  50 

PO  1F(F'L  AST-NMAXI  82fqC,<>0 

8 2 nr  05  r=Kt'^MAx 

f5  Ad)  = Ad-1)  ♦ CLOf.lOFLCATC  1 )) 
NLAST  = M»<AX 
SO  5 = A(NMAX) 

K = NMAX+1 
nr  9?  IaK,NN 

S2  e = P ♦ OLOCl  DFLOATd  I ) 

SUMino  = 0 

RFTUPN 

FF’n 


Ev  Atm  no 
EV  ALOllO 
EV  AL0120 


SMLGOOlO 
S“LG0020 
SMLG0030 
S ml  00040 
SMLr,no50 
SMLG0060 
SML00070 
S“LG0OP0 
SMI ooooo 
SMI  00100 
S«LG0110 
SMLOO  120 
SMI  GO  130 
SMI  GO 140 
SMI  G0150 
SMLG0160 
SMIG0170 
S^LGOISO 
SMLGO  190 
SML002^'’ 
SMLG0210 
SM| G0220 
SMLG0230 
SMLGO 240 
SMLG0250 
SMLG02ft0 
SMLG0270 
SM(.  G0280 
SML 00200 

SMI ro300 
SMLG0310 
S“L  GO  320 
SMI G0330 
SMLG034O 


SiincrUTIMr  imvep  T|  XMiN,xMAXrX,FT)  nvptooio 

CPMMrv  /PI  K2/  Tf  TT  I'VPTDiao 

THIF  SUP^dlTINE  FINOS  VALUF  OF  X THAT  RESULTS  IN  FIX)  = FT,  pY  fV'’TOT»o 

ITEPATIPM  pASFp  nn  LINpaP  IMTFRPOLATION/FXTRAPOLATinN  from  PRFVlPifS  ‘'VPTOOSO 
TWO  TRIALS.  FUNCTION  F MUST  BF  MCNCTONIC.  NVRTOpso 

TEST  = 10000,  MVOTOO/-0 

FP  = PT  WPTO170 

IF  (FT  ,F0.  C.)  Fn  » 1.  NVPTnopo 

MO  I * I NVPTOOOO 

X = (X«AX  4 XMIN)  / 2.  NVRTOlOO 

FI  = FSSIX,  T,  TT)  NVO’’0llO 

X2  » X NVRT0120 
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S 1 

1'  I 

j;i 


c 

c 


F2  = FI 

NVRTO 130 

FN  = FI 

NVRTO lAO 

CP  TP  A 

NVRTO 150 

1 

FI  = '■SSIX,  T,  TT) 

NVRT0160 

IF  (NT  I ,FQ.  15)  GO  TO  2 

NV0T0I70 

4 

TESTl  = AR  S( (F 1 - FT)  / FO) 

NVRTOlflO 

IF  (TFSTl  - TEST)  2,  2,  3 

MVRT0190 

3 

XH  = X 

NVRTO 200 

IF  (VO  I .GT.  1)  GO  TO  6 

NVRT0210 

CFL  TA  = ( XMAX  - XNIN)  / A. 

MVBTO220 

IF  (FT  .IT.  FI)  OELTA  « - DELTA 

NVRT0230 

F«AX  = FSS(XNAX,  T,  TT) 

NV  RT02A0 

PMIN  = FSSIXMIN,  T,  TT) 

NVRTO 2 50 

IP  (FVAX  .LT.  FHIM)  DFLTA  = - OELTA 

NVRTO  260 

X = X ♦ DELTA 

NVPT0270 

XN  = XV 

NVRTD?RO 

NPI  = 2 

NVPT0290 

CP  Tn  1 

NVR  T0300 

6 

X = (rT-FN)*  (X-XN) /(Fl-FN)  ♦ XN 

NVRTU310 

NO  I = VO  I ♦ 1 

NVRT0320 

IF  (NPI  - 3)  2<>,  21,  2A 

NVPT0330 

21 

TF  (ABS(F2~FT)  - ARS(Fl-FTI)  23,  23,  2A 

NVPTOTAO 

23 

XN  = X2 

NVRT0350 

FN  = F2 

NVRT0360 

GO  TP  1 

NV  RT0370 

2A 

XM  a XM 

NVRr03fl0 

FN  a FI 

NVRTO 390 

GP  TO  1 

NVRTOAPO 

2 

RETURN 

NVRTOAin 

END 

NVRT0A20 

FUNCTIPN  FSSISl,  T,  TT) 

FSS  0010 

CFFINFS  PARAMETFR  S AS  A FUNCTION  OF  SI  AND  T. 

CSS  0020 

(SFE  RA(^  LAR  SERIES  VOL.  13,  P115.) 

ESS  0030 

SSI  = SI*  SI 

ESS  OOAO 

TFMPl  = 1.  - SSI 

rss  ooso 

TEMPI  - TEMPI  ♦ TFMPl 

FSS  OOAO 

TFMP2  = A.  * SSI  * TT 

FSS  0070 

TrMP3  * 2.  * SI 

FSS  OORO 

TFMPA  a 1.  ♦ T 

ESS  OOSD 

FSS  = (SI  ♦ (SORTCTEMPl*  TFMP2)  - 1.  ♦ SSI)  / TEMP3I  / TF*<PA 

PFTUFN 

Ewr 


c 

c 

r 

c 

c 


SUBHPUT  INF  SEAREF(FPHZ,PSI tRHC.PHI J 
IMPl  ICtT  PEAL*fl(A-H,0-Z) 

PnCS. 121, A^0-47C, 

this  siippcutine  ccmputfs  complex  reflection 

SFA  HATER,  AS  A FUNCTIPN  OF  FREQUENCY,  FMHZ 
PS  I, (RAEIANS ) ANO  have  POLARIZATION  IIPOL  > 
ANC  IPPL  * 2 FOR  HORIZONTAL  POLARIZATION). 


FSS 

FSS 

FSS 


oim 

Olin 

0120 


VFR.2 

COEFFICIENT 
GRAZING  ANGLE, 
I FOR  VERTICAl 


U-2S-7A 

OF 


SFPFoon 

SFPPOOZO 

SFRFOnSO 

SFRFOOAO 

SPRFnoso 

SFRF0060 

SERF0070 
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nnnno  on  nooo  on  ooooo  ooono 


OUTPUT  OF  THIS  ROUTINf  IS  MAGNITUDE  RHO  AND  PHASE  ANGLE 
PHURAOIANSI  OF  THE  COMPLEX  COEFFICIENT.  COMPUTATION 
IS  RASEC  UPON  EOLATIONS  (1)  AND  (2)  OF  RAO  LAB  SERIFS 
VOL.  I3t  PAGE  396.  THE  SUBROUTINE  MAS  WRITTEN  BY  L.V. 

PLAKE,  NRL  code  5370  SEPT  1969. 

CrMPLFX*l6  EPSC.  GAM,  SQTERM,  TERM,  GAMCCf  OIFFl,  0IFF2 

COMPLEXES  GAMS 

CATA  FLAST/0.0/ 

siNPSi  * nsiNiPsn 

cspsi  » ncnsiPSi)  »•  2 

IF  (FMHZ  .EO.  FLAST)  GO  TO  200 

IF  SUBROUTINE  HAS  BEEN  CALLED  PREVIOUSLY  DURING  THE  PROGRAM, 
ANC  FREQUENCY  IS  THE  SAME  AS  ON  THE  LAST  PREVIOUS  CALLt 
PART  OF  THE  COMPUTATION  NFED  NOT  BE  DONE,  SINCE  THE 
REOUIREC  VALUES  HAVE  BEEN  STORED. 

FLAST  * FMHZ 
COMPUTE  WAVELENGTH 

W * 2S9. 7S300  / FMHZ 

IF  (FMHZ  .GT.  15C0.00)  GO  TO  151 

SIG  IS  CONOUCTIVITYIMHO/METER) , EPSI  IS  THE  REAL  PART  OF 
THE  DIFLFCTPIC  CONSTANT.  BOTH  ARE  DEPENDENT  UPON  FPHZ 

150  SIG  = A.3DC 

EPSI  = 80.00 

GO  TO  155 

151  IF  (FMHZ  .GT.  3CC0.D0J  GO  TO  154 

SIG  = 4,300  ♦ (FMHZ  - 1500.001  ♦ .0014800 

153  EPSI  * 80.00  - (FMHZ  - 1500.00)  ♦ .0073300 

GP  TP  155 

154  EPSI  = 69.00  - (FMHZ  - 3000.DO)  • .00242900 

SIG  * 6.52DC+  (FMHZ  - 3000,00)  • .00131400 

155  EPSC  » nCMPLX(EPSl,-60.00*MPSIG) 

2C0  SOTERM  = COSORTIEPSC  - CSPSI) 

IF  ( IPPL  .GT.  1)  GO  TO  161 

UO  TERM  = FPSr  ♦ SINPSI 

GAM  = ( TFRM-SQTFRM)/(TERM*SQTERM) 

GP  TP  IPO 

161  gam  . (SINPSI  - SOTFRM)  / (SINPSI  ♦ SOTERM) 

180  RHn  = COABS(GAM) 

GAMS  = GAM 

PH  = -ATAN2(  AIMAG(GAMS)  , REAL(CAMS)) 


RETURN 

FA'n 


SUPPPUTINF  CFRACT  ( AHFT,  THF  T,RNM,FMHZ,FPB) 
IMPLICIT  RFAL*8(  A-H,0-Z) 

RFALOA  AHFT,  THFT 


■*  IS  ANTFNNA  HEIGHT(FEFT)  THFT  IS  TARGET  HE  IGHT  (FEE  T) . 
* - IS  RANGE  IN  NAUTICAL  MILES,  FMHZ  IS  FREQUENCY  IN 
rFRTZ. 

THIS  RPLTINE  COMPUTES  PROPAGATION  FACTOR  IN  OB  RELATIVE  TO 
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SFRF0080 
SFRF0090 
SFRFOIOO 
SERF(JllO 
SERF0120 
SFRF0130 
SERF0140 
SERF0150 
SERF0160 
SERF0170 
SERF0180 
SER  F0190 
SERF0200 
SFRF0210 
SFRF0220 
SFRF0230 
SFRF0240 
SERF0250 
SER F0260 
SEBF0270 
SERF0280 
SERF0290 
SERF0300 
SFRF0310 
SERF0320 
SERF0330 
SERF0340 
SFRF0350 
SPRF0360 
SERF0370 
SER F0380 
SERF03O0 
SFRF0400 
SPRF0410 
SERF0420 
SFRF0430 
SFRF0440 
SFRFn450 
SERF0460 
SPRF0470 
5:FRF04P0 
SERP0490 
SFRFOSOO 
SFRFOSIO 


rFRcooin 

OFRC0020 

nFRroo30 

nFRC0040 

PFRCOOSO 

DFRrn060 

OFRCOOTO 

pPPCOOflO 


r.  FPFF  sp*rF.  P4SIS  IS  foution  a63  or  propagation  cf  short 

r.  RADir  WAVfS,  KFRP,  VOL  13  OF  RAD  LAB  SERIFSt  PARC  122 

C ri  ANC  7?  ARE  NATURAL  HE IGH TS  AND  X IS  NATURAL  R4AGF  , SFE 

C FOUATIPHS  351  and  B'Ct  PAGES  RB-R?,  KERR. 

C 

PWB  * l.OO  / 3.00 

FAfTliR  = IFMHZ  ••(2.D0  ♦ PWRI)  / 6988.10300 

71  = AHFT  * FACTOR 

72  - THFT  * FACTOR 

X = (PNM  * (FHHZ  ••  PWRI)/  102.71500 

CALL  UFCM  (Zl.UORn 

tail  UFCN  (72,U0R2) 

F0»  = 10.  992CSf64DC  ♦ I 0.  D0*0L05  1)  f X)  - 1 7.565  6R7D0  PK 

1 ♦ UOBl  ♦ unp2 

PFTUPN 

ENP 


PFRCnORO 
PFPCOIOO 
OFRCOllO 
PFQC0120 
nFPcoi3n 
PFRCOIAO 
OFRCOISO 
PFRCO IFO 
CFRC0170 
PFPC0180 
OFRCOiqn 
OFRCOZOO 
CFl  CO’ 10 

rFRro27o 

PFOC0230 

CFPC0260 


I' 


SUPRUUTIMF  UFCN  (7.  UOB  » 

IHPLICIT  RE4L*8( A-H,0-Z) 

C THIS  SU8P0IJTINF  COMPUTES  HFIGHT-GAIN  FUNCTION, UOB,  IN  OFCIPFLS 

C PY  USING  E'^PIRICAL  FOPHULAS  FOR  DIFFERENT  SEGMENTS  CF  FIG. 

C 2.20,  PAGE  120  OF  PRCPAGATION  OF  SHORT  RADIO  WAVES  , KFRP, 

C VOL  13  OF  RAC  LAB  SERIFS. 

C NPTF  ’HIS  CURVF  IS  VALID  FOR  HORIZONTAL  POLARIZATION  ONLY. 

IF  17  .GT.  .600)  GO  TO  2 

L^'P  = 2C.D0  ♦ DLOGIOIZ) 

OFTUFN 

2 IF  ( 7 .CF  . l.no  I GO  TO  6 

UCP  = -A. 300  ♦ 51.06n0*(OLrGl0(Z/.600))  *♦  1.6P0 

RFTUPN 

A UPP  = 19.8672800  *((7  ♦*  .6  700)  - .90  0) 

RTTUPN 

ENP 


SUPTOUTIV?  : URVI  T 
implicit  RFAL*8( 6-H,0-Z) 

THIS  SUPPriUTINC  IS  USFO  TO  FIND  THF  COEFFICIENTS  OF  A CUBIC  EQUATION 
FOR  USE  IN  calculating  PATTERN  FACTORS  IN  THE  INTERMFOI  ATE  ZONC. 

COMMON  /BLKl/  tVIA),  YY(6),  A,  B,  C,  0 
niMFHSION  APIA, A),  AY(6,6) 

PP  5 I = l,A 

AY(I,1)  » YYIl) 

AYi  1,2)  ^ c.cno 

AY(  1,3)  « C.OOO 

AYI  I, A)  = o.ono 

ARI  I,  1)  » l.OOO 

5 CPNT  INIIF 
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uFC»'oon 

IIFCN0070 

UFCMOftlO 

UFCMDOAO 

UFCNOOSO 

UFCA'0060 

iirFNOOTO 

UFCA'OOHO 

'jFCvnnRO 

flFCNOIOO 

uc':noi  in 
uFC.Nniro 

UFOMOl 30 

UFCNOI AO 
UFFNO ISO 
UFCNO  IfiO 


O VTOOlO 
rpvTOopo 
CPV’OO iO 
fPV’OOAO 
CPVTOOSO 
CRVT0060 
CRVTOOTO 

n VT0080 

CRVTOOOO 
CRVTO  LOO 
rov’Oin 

rt:  VTA  I 2 0 

CRVT0130 
'■BV’OIAO 
CRvTO  iso 
FPVTO 160 
C0VT0170 


c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 


cn  10  i - it^ 

CRVT0180 

CP  10  J « 2.9 

CRVT0190 

K ■ J - 1 

CHVT0200 

ftRd.JI  - Affd.KI  « XX(U 

CRVTa210 

10 

CPNT INUE 

CBVT0220 

CRVT0230 

CALL  MATAlGUR.AYI 

CRVT0290 

CRVT0250 

SCT 

CnFFFTC  IFNTS 

CRVT0260 

r.«VT0270 

A » AVU.ll 

CRVT0280 

e > AVO.ll 

CRVT0290 

C « AY(2tll 

CRVT0300 

r ■ AYd.l) 

CRVT0310 

CRVT0320 

RFTURN 

CRVT0330 

END 

CRVT0390 

SLR^PUTINF  NATALGIA.X) 

HTL GOOlO 

IHPL  ICIT  RFAL98(A-H.0-7I 

HTLG0020 

CIMENSTON  A(9.9I «X(9«9I 

NTLG0030 

IFdnOI  l«2tl 

NTLG0090 

1 

00  3 I«1,NR 

MTLG0050 

CO  9 J-l.NR 

MTLr.0060 

9 

XI  I.J  1*0.0 

MTLG0070 

3 

X(  1* I 1*1.0 

mtlgooro 

NV*NR 

HTLG0090 

2 

OET  ■ l.no 

MTLGOIOO 

NRl  * 3 

mtlgoiio 

DO  5 K * 1,  3 

MTLG0120 

IR  1*K*1 

MTLG0130 

PIVOT  « 0.000 

••TLG0190 

CO  6 I * K.  9 

MTLG0150 

z * DARSIAd.Kd 

NTLG0160 

1FI7-PIV0TJ  6.6.7 

MTLG0170 

7 

PivnT»2 

MTLGO  IRO 

IPR*1 

MTL 00190 

6 

CONTINUE 

MTLG0200 

IFtP  IVOT)  8.9.8 

MTL 00210 

9 

CET  * 0.000 

MTLG0720 

RETURN 

“TIG0230 

8 

lEdPR-K)  1C. 11. 10 

XTI 00290 

10 

no  12  J * K.  9 

MTLO0250 

Z*A(  IPR.J) 

NTLG0260 

A|  IPR.J  l«AIK.J) 

••TLG0270 

12 

AIK. J )*Z 

MTir,02R0 

2 * XI  IPR. 11 

9TLG0290 

XI IPR.l)  • XIK. 11 

NIL GO 300 

XIK. 11  * 2 

NTLG0  310 

CET*-DET 

HTL  CO  320 

11 

CET*nET*AIK.K> 

MTL 60330 

PIVOT  • 1.000  / AIK.KI 

MTL 60390 

CO  19  J * IRl.  9 

MTLG0390 
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I 
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I 


1 


•n  r>  o ri 


L. 


A(K,JI=A(K,J |*PIvnT 

‘'TLG0  360 

rr  M f = Ifl.  4 

MTI  roiTO 

14 

4M,J)  = A«I»J)-A(I,K)*A«K,J) 

mtlGOTPO 

!F  ( y(K  , 1) ) 15,  5,  15 

“TtGOTPO 

15 

*(K,  1)  = X(K,  1»  * PIVPT 

“TLG0400 

rr  16  ! = T»l,  4 

MTLr,04l0 

16 

x( r, n * x(  I,  i)  - A(  I ,K » * xiKti) 

''TLr,0  4?'> 

5 

rrNT IMUF 

VTI.GO4  30 

IF  (A| 4,4)  ) 17,  «,  17 

‘'TLG0440 

17 

prT  = orr  * a(4,4) 

*'TLr,0450 

PIVOT  = 1.  / A(4,4I 

*'T|.  00460 

X( 4, n = X( 4, 1 ) * PIVOT 

MTLG0470 

rr  IP  K * 1,  3 

MTLr,O4P0 

I = 4 - K 

“TLr,0490 

su'<  = c.cno 

«T(.r,0  5C0 

rr  IQ  1 * I,  3 

MTI.00510 

1<J 

SUM  = SUM  4 A(I,L4l)*X(L4l,l) 

VTLOOS? 0 

Ifl 

Xf  I,  1 ) = XI  I , 1 » - SUM 

‘'T  top  53  0 

RFTIJOM 

»'TLr,0S40 

FMn 

•'tl  rosso 

SlPPruT  INF  awgFO (VAP,SNPI ,ANG3,C0N1, CnN2) 

Af'o«noio 

XNUM  = AM  0 3*  r ONI 

Af.'r.poo20 

TFN  * rpM2*S0«T( SNP I) 

A^'GPOOOO 

PMS  = XM(tM/nF»' 

AMGPOn40 

RPS  = P»'S<'1CCC. 

A*'ro0OS0 

VAP  = FMS**2 

AN'GRO')60 

PFTIIPN 

AK'OPnrro 

EMP 

A‘' GO. 00  so 

SURPriiTIME  FGAINI  GNOPM  , ANGl,  ANG2 , BWOR  ) 

Fr  A\'00  10 

TMIS  SUPPPUTINF  Cn**PUTES  NOPMALIFFO  GAIN,GNUPM,  FOP  StNX/X 

PGA‘10070 

AMTFMNA  FOR  VAPinuS  ANGLES  OFF  BOPFSIGHT 

FG  AM0030 

THIS  GAI^  FUNCTinM  IS  BA  SFO  ON  A RECTANGULAR  APFRTUPE  WITH 

rr.  AN0040 

(IMFPRm  IlHJM  INATICN  (BARTON  tWARO,PAGE  24) 

PGANOOSO 

PI2  * 1.57C7S63 

rr AMOOsn 

PI-FF  = ANGl  - ANG2 

FGANOOTO 

X . I 2,7R3451*SrN|PHEE>» /BWOR 

FGANOOPO 

AX  * AP  SI  X ) 

rr,  "NOp'JO 

IF|  AX.l  T.l.F-5)  GO  TO  10 

rr  A'lOIOO 

CNnK-M  = SIN|X)/X 

FGA'IOl  10 

(pnHFr  « APSIPHFF) 

FG  A''n  120 

rF|AHPHrF.GT.PI2)  GNPPM  * ,001 

FGA'IO  I’O 

prTUP'l 

rrA\0  140 

10  CM^PM  e l.O 

rr.  AMO  150 

PrTlJPN 

FGAMO 160 

EHP 

FGA'-OITO 

SUPPOUT  INF  SIGOS(ISStXLAPOA,PSI*SIGOOBI 

Sir  0010 

I 
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CIMENSICM  ST0R(et9««) 

CIM ensign  si(8t 9)tS2( 8*9) »S3( 8 19) t S4( 8.9} • S5 (8 »9 1 1 S6 18 ,9  I 
EQUIVALENCE  ( STGR  ( It  1 1 D t SI  < 1 1 1 1 I STORI 1 *1  t2l  tS2  1 1 11 1 

1 (STORI  ltlf3)tS3fint(ST0Rlltlt4)  tS4 1 11  ) t (STORI 1 1 1 1 S)  t S51 1 )» t 

2 (STORI  It l,e>tS6(lll 


CATA  SI  / 809., L.7E5t3.226t9.357tl0. t24 


1 .001  7453.>62.,-80.  t-87. 

2 .0052359t-56.,-73.t-79. 

3 .0174532, -49. t-66.t- 70. 

4 .0523598, -49. ,-58. ,-68. 

5 .1745329, -41. ,-56. ,-67. 

6 .5235987, -32. ,-57., -62. 

7 1.0471975, -22. ,-34., -25 

8 1.5707962, -18., -11. t-3. 


CATA  S2  / 809., 1.765,3.226,5.357,1c. ,24 


1 .0017453,-58. ,-68. ,-75. 

2 .00523*9, -52. ,-59. ,-71. 

3 .0174532, -45., -51. ,-56. 

4 .0523598, -45. ,-48. ,-54. 

5 .1745329, -38., -51. ,-53. 

6 .5235987, -30. ,-51. ,-48. 

7 1.0471975, -20. ,-26. ,-26 

8 1.5707962,-16. ,-11., -2. 


CATA  S3/  609., 1.765,3.226,5.357,10. ,24. 


1 .0017453, -54. ,-61. ,-67. 

2 .0052359, -48. ,-53., -60. 

3 .0174532,-4  I. ,-46. ,-48. 

4 .0523598, -41. ,-42. ,-48. 

5 .1745329,-35. ,-43. ,-46. 

6 .5235987,-28. ,-44. ,-42. 

7 1.0471975,-19. ,-23. ,-22 

8 1.5707962,-  15. ,-11., -1. 


CATA  S4/  809.,  1 .765 , 3. 226, 5. 357 ,1 C. ,24 


1 .0017453, -50. ,-53. ,-60. 

2 .0052359,-44. ,-46. ,-50. 

3 .0174532, -37. ,-40. ,-43. 

4 .0523598, -37. ,-39. ,-42. 

5 .1745329,-33. ,-37., -40. 

6 .5235987,-27. ,-34. ,-37. 

7 1.0471975, -17. ,-21. ,-20 

8 1.5707962, - 13., -11. ,-l. 


CATA  S5/  809. ,1.765, 3.226,5.357,10. ,24. 


1 .0017453, -47. ,-48. ,-55. 

2 .0052359, -41. ,-42. ,-45. 

3 .0174532,-34. ,-36. ,-39. 

4 .0523598,-34.,- 35. ,-38. 

5 .1745329, -31. ,-34. ,-36. 

6 .5235987, -24. ,-33. ,-35. 

7 1.0471975, -15. ,-20. ,-15 


8 1. 5707962, -ll.,-ll.,0. ,-2 . ,-8. ,-l 1. ,-15 


CATA  S6/809., 1. 765, 3.226 

1 .0017453,-44. ,-42.,-48. 

2 . 0052359,-38. ,-39.,-41. 

3 .0174532, -31. ,-33. ,-35. 

4 .0523598,-30.,-32.,-34. 


-90.  ,-108.  ,-99.  ,-10 
-83. ,-95., -93. ,-97. 
—73. ,—80. ,—86. ,—90. 
-68.  ,-72.  ,-75., -79. 
— 67.  ,—60.  ,—  62.  ,—66. 
-52., -50. ,-49. ,-53. 
,-32. ,-32., -32. ,-36 
-7. ,-10. ,-15., -19./ 


-80. ,-99. ,-97. ,-101 
-74. ,-87. ,-91., -95. 
-65.  ,-73., -84.  ,-88. 
-59. ,-62., -70. ,-74. 
-58. ,-56. ,-57., -61. 
-44. ,-46. ,-45. ,-49. 
,-25., -24. ,-22.  ,-26 
-5.  ,-10.  ,-11.  ,-15./ 


-75. ,-90. ,-95. 
'—66.  ,—78.  ,—89. 
— 55. ,— 6 5. ,—82 . 
-53. ,-59. ,-66. 
-51. ,-53. ,-53. 
-40. ,-41., -42. 
.-23., -21., -22 
1-4., -9.  ,-11..- 


— 68.  ,—  82.  ,—90. 
-58. ,-72. ,-82. 

— 48.  ,—60.  ,—  76. 
-46.  ,—55.  ,—  61. 
-46., -48. ,-50. 
-38. ,-39. ,-40. 
,-22. ,-20., -21 


-4.,-8.  7,-11.  ,-15./ 


-58.  ,-73.  ,-88. 
-50.  ,-63.  ,-78. 
-42. ,-52. ,-69. 
—41. ,—48.  ,—57. 
-41. ,-45. ,-48. 
-3  7.  ,-37.  ,-39. 
,-21. ,-18. ,-21 


5.357,10. ,24. ,60. ,150. , 


-53. *-65. ,-84. 
-44,  ,-5t.  ,-75. 
—42. ,—50. ,—65. 
-37. ,-46, ,-53. 


,60. ,1 50. , 

,-103., 

-97., 


60.  ,15 
-99.  , 
-93.  , 

— 86  . , 
-70.  , 
-57.  , 
-46.  , 
,—26. , 
5./ 
,60.  ,l 
-94., 
-86.  , 
-80., 
-65.  , 
-54., 
-44.  f 
,— 25.  , 


150.  , 


150.  , 


60. ,150.  , 
-92.  , 

-82.  , 
-53., 

-61.  , 
-52., 
-43., 
,-25.  , 

./ 


-88.  , 
-79., 
-69.  , 
-57., 


0020 
00  30 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0 240 
0250 
0260 
0 270 
0280 
0 290 
0 300 
0310 
0320 
0330 
0340 
0350 
0 360 
0370 
0380 
0 390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0 560 
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O »fi 


1 1 } 'V 


• 17453?^f'“2^«t*3l#t'*33«  f“38«  f”^3«  f“A6*f*50»  t 
.5?35oe7,-22.t-3n.,-33.t-32.t-3^. ,-3fl. t-42., 

7 l.047l'-75,-e.»-lc..-13.,-20.  ,-l8..-2Q.  ,-24.  , 

P I .«i707«6?,-«.,-  H.  ,♦!.  ,-l.  ,-e.  ,-ll.  ,-15./ 

J7  = I5S  ♦ 1 

C/L.  Tw  lJ2i(  ST31  ,8,9,  t,  J7,XLAM3A,  PSI  ,SI  30  CB  , I NOV  , INPX  , IN'  , ! M ) 

IF|  IMv.NT.O.nP  .INX.NF  .01  STOP 

PFTUPN 

EF!n 


SIG  0570 
SIC  05Bn 
SIG  0500 
SIG  0500 
SIG  0610 
SIG  0620 
SIC  0630 
SIG  0640 
SIG  0650 


SUBPROGRAM  FUNCTIONAL  INDEX 


The  following  index  references  each  subprogram  in  the  same 
order  as  the  appendix  listing.  Comments  added  pertain  to  the  function  of 
subprograms . 


N-  10 
N-  10 
N-11 
N-  11 
N-  12 
N-16 
N-17 
N-20 
N-22 
N-22 


N-23 

N-28 

N-30 

N-32 


N-37 


N-45 

N-46 

N-54 

N-61 


N-65 


N-65 


Subprogram 

MAIN 

PAGE 

WCBDll 

WMAT3 

WRITRX 

SORT 

KORDER 

T BASIC 

WBASIC 

UPDA 

STRING 

CARD 

UNIQUE 


SETUPA 

NAVIT 

UNISET 

SETUPB 


SET UPC 


STTRAJ 

SETUPD 

SETUPE 

SETUPF 


UCHEK 


RADCK 


Comments 

NEM  Executive  main  program;  controls  all  functions. 
Pages  all  output  with  page  numbers,  classification,  etc. 
Writes  basic  tables  on  disk  11. 

Writes  matrices. 

Writes  matrices. 

Rank  orders  a list  of  values  from  smallest  to  largest. 
Orders  an  array  of  integers  from  smallest  to  largest. 
Basic  table  processing  executive  routine. 

Writes  basic  tables. 

Namelist  update  of  basic  tables. 

Manipulates  strings  of  data  on  a sequential  data  set. 
Read  and  list  input  data  cards. 

Lists  the  unique  values  found  in  a general  array 
of  values. 

Sets  up  group  routes  from  basic  table  inputs. 

Sets  up  group  routes  and  initial  positions. 

Sets  up  units  from  basic  table  inputs. 

Sets  up  platforms  vs  subsystems  from  basic  table 
inputs. 

Sets  up  ASM-SSM  subsystem  data  from  basic  table 
inputs . 

Sets  up  missile  trajectory  velocity- altitude  profiles. 

Sets  up  misc.  weapon  & SAM  subsystem  data. 

Sets  up  Radar,  Sonar  and  Jammer  subsystem  data. 

Sets  up  cruise  missile  homing  radars  and  other 
general  data. 

Utility  driver  for  checking  Navigation  and  Radar 
models. 

NEM  Radar  model  checker. 


N-197 


Page 

Subprogram 

Comments 

N-67 

XECUTE 

Begins  engagement  model.  Defines  and  allocates 
dynamic  storage. 

N-69 

SETDS 

Dynamic  storage  monitor. 

N-72 

ENGAGE 

Engagement  executive  routine. 

N-77 

TILOOP 

Engagement  logic. 

N-81 

HVTGT 

High  value  target  designation  and  priorities. 

N-82 

GCDATA 

Initializes  group  center  data. 

N-83 

SONARM 

Computes  ranges  for  sonar  systems. 

N-83 

SYSTEM 

Sets  up  subsystems  for  each  unit  prior  to 
engagement. 

N-92 

SYSTST 

Tests  for  specific  subsystem  in  platform- 
subsystem  matrix. 

N-93 

ALLXYZ 

Computes  and  outputs  position,  velocity  and 
status  for  units  on  routes. 

N-96 

BLUXYZ 

Interpolates  position- velocity  of  group  centers. 

N.98 

GRPMOV 

Fast  interpolation  of  group  center  position- velocity. 

N.99 

TUXYZ 

Computes  position- velocity  of  units  on  intercept 
trajectories . 

N-102 

GRTEST 

Computes  time  for  a specified  range  between  units. 

N-  102 

GUID 

Computes  guidance  errors. 

N-104 

INCEPT 

Computes  time  and  position  of  intercept  between  units 

N-105 

RELATE 

Determines  interaction  intervals  between  units. 

N-109 

NQUIRE 

Checks  the  information  matrix  for  existing  data 
between  units. 

N-  110 

ADDSEG 

Adds  data  to  the  information  matrix. 

N-lll 

UPSEG 

Updates  existing  data  in  the  information  matrix. 

N-111 

DETECT 

Governs  detection  between  units.  Calls  Radar  Model. 

N-111^ 

SHIPXS 

Adjusts  radar  cross-section  of  ships  for  horizon 
masking. 

N-118 

ALLOCA 

Governs  weapon  allocation  between  units. 

N-132 

SAMLT 

Computes  launch  and  flight  times  for  SAM  intercepts. 

N-138 

CONINT 

Interpolates  SAM  launch  envelope  data. 

N-139 

WPNTRM 

Governs  weapon  termination  of  SAM's,  torpedoes, 
ASW,  etc. 

N-198 


I 


Page 

Subprogram 

Comments 

N-  141 

KILLEX 

Evaluates  terminal  effects  for  all  weapon-target 
combinations . 

N-  151 

KILLHE 

Evaluates  ship  damage  due  to  HE  and  nuclear 
weapons. 

N-  153 

DELSEG 

Deletes  obsolete  data  from  the  information  matrix. 

N-153 

STATE 

Computes  the  state  code  for  ship  targets. 

N-154 

URN 

Uniformly  distributed  random  number  generators. 

N-154 

XNRN 

Normally  distributed  random  number  generator. 

N-154 

ACMTRM 

Governs  termination  of  attack  A/C  and  cruise 
missiles. 

N-156 

TLU23 

Table  look-up  interpolation  utility. 

N-157 

WRAD 

Computes  weapon  radii  for  nuclear  weapons. 

N-159 

STATUS 

Updates  engagement  status  at  end  of  each  time  step. 

N-162 

USTAT 

Updates  unit  status  at  end  of  each  time  step. 

N-  164 

SNAP 

Outputs  position,  velocity  and  status  for  units 
on  intercept  trajectories. 

N-  166 

SUMOUT 

Outputs  engagement  results  in  summary  format. 

N-168 

BLOCK  DAT A- A 

Data  initialization,  default  values. 

N-  169 

BLOCK  DATA-B 

Data  initialization,  default  values. 

N-170 

RADAR 

Radar  model  executive  routine. 

N-177 

FFACT 

Pattern  propagation  factor  due  to  multipath  and 
sidelobe. 

N-181 

MARSWR 

Single  look  probability  of  detection  using  Swerling 
Case  No.  , S/N,  number  of  pulses  integrated,  and 
false  alarm  exponent. 

N-  186 

FCCSC 

Cosecant  squared  antenna  gain  vs.  angle  off  boresight 

N-187 

DCAM 

Function  supporting  MARSWR. 

N-18.7 

DEVAL 

n It  M 

N-188 

CAM 

II  II  II 

N-188 

EVAL 

It  It  11 

N-189 

SUMLOC 

It  It  It 

N-199 


I 


Page 

Subprogram 

Comments 

N-  189 

INVERT 

Function  supporting  FFACT. 

N-190 

ESS 

It  tl  M 

N-  190 

SEAREF 

It  tl  It 

N-191 

DFRACT 

It  If  tl 

N-192 

UFCN 

If  It  It 

N-192 

CURVIT 

II  It  It 

N-193 

MATALG 

It  It  It 

N-194 

ANGER 

Variance  of  track  angle  error. 

N-194 

FGAIN 

Sin  x/x  antenna  gain  vs.  angle  off  bo  resight 

N-194 

SIGOS 

Backscatter  coefficient  of  sea  clutter  in  db. 

N.200 


4.0  SUBPROGRAM  ALPHABETICAL  INDEX 


Subprogram 

Page 

Subprogram 

Page 

Subprogram 

Page 

ACMTRM 

N- 154 

GRTEST 

N-102 

SETUPD 

N-46 

ADDSEG 

N-llO 

GUID 

N-102 

SETUPE 

N-54 

ALLOCA 

N-118 

SETUPF 

N-61 

ALLXYZ 

N-93 

HVTGT 

N-81 

SHIPXS 

N-117 

ANGER 

N-194 

SIGOS 

N-194 

INCEPT 

N-104 

SNAP 

N-164 

BLOCK  DATA-A 

N-168 

INVERT 

N-189 

SON ARM 

N-83 

BLOCK  DATA-B 

N-169 

SORT 

N-11 

BLUXYZ 

N-96 

KILLEX 

N-141 

STATE 

N-153 

KILLHE 

N-150 

STATUS 

N-159 

CARD 

N-22 

KORDER 

N-11 

STRING 

N-20 

CONINT 

N-138 

STTRAJ 

N-45 

CURVIT 

N-192 

MAIN 

N-5 

SUMLOG 

N-189 

MARSWR 

N-181 

SUMOUT 

N-166 

DELSEG 

N-153 

MATALG 

N-193 

SYSTEM 

N-83 

DETECT 

N-111 

SYSTST 

N-93 

DEVAL 

N-187 

NAVIT 

N-28 

DFRACT 

N-191 

NQUIRE 

N-109 

T BASIC 

N-  12 

DGAM 

N-187 

TILOOP 

N-77 

PAGE 

N-7 

TLU23 

N-  156 

ENGAGE 

N-72 

TUXYZ 

N-99 

ESS 

N-190 

RADAR 

N-170 

EVAL 

N.188 

RADCK 

N-65 

UCHEK 

N-65 

RELATE 

N-105 

UFCN 

N-I92 

FFACT 

N-177 

UNIQUE 

N-22 

FGAIN 

N-194 

SAMLT 

N-132 

UNISET 

N-30 

FGCSC 

N-186 

SEAREF 

N-  190 

UPDA 

N-17 

SETDS 

N-69 

UPSEG 

N-111 

GAM 

N-188 

SETUPA 

N-23 

URN 

N-154 

GCDATA 

N-82 

SETUPB 

N-32 

USTAT 

N-162 

GRPMOV 

N-98 

SETUPC 

N-37 

N-201 


